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WA NTE ' a 

oferta que 
presenta ERBE 
para el mes de 
marzo, consistente 
en regalar cualquiera de 
los títulos de su catálogo en el 
momento de la compra de otro de 
sus juegos de 875 ptas. ha habido una 
contestación por parte de los minoristas, que 
se sienten perjudicados por la medida. 

MUNDO AMSTRAD en esta ocasión ha querido hacerse 
eco de estas opiniones y para ello refleja sus comentarios en la 
siguiente entrevista realizada a Enrique Borras, propietario de Master 
Games, empresa que comercializa todo tipo de cintas de software. 

UÉ repercusión tiene para los detallistas la modificación de precios 
ofrecida por Erbe? 

Supone para los pequeños distribuidores, una creación de stocks tan grande 
o mayor de la ya existente en la actualidad, sin ningún beneficio para nosotros pero 
sí para la productora. En teoría es una renovación de stocks que no es tal, real¬ 
mente es un cambio de producto ante el que tenemos la obligación comercial de 
regalar otro ya pagado anteriormente a coste habitual del mercado y que no he¬ 
mos vendido, para que se renueve por otro producto más barato que es el que se 
ofrece como oferta. 

Una vez pasado este momento, y dado la relativa antigüedad de los títulos que 
componen nuestros stocks y la promoción de la oferta, estos juegos ya no se ven¬ 
derán, de hecho no tendrán salida posible por haber copado la venta del producto 
a base de esta oportunidad, así, cintas que antes eran novedades, se convertirán 
en cintas de saldo. 

STA promoción recuerda a la bajada de precios de marzo del 87. Cómo 
recuerdas las consecuencias de aquellas medidas? 

Existía un stock de cintas con precio bastante más elevado que el de venta 
y que había que amortizar y Erbe no se hizo cargo de ningún coste, aunque nece¬ 
sitaba recuperar ventas. Con la comercialización de los nuevos precios, no sólo 
no perdía dinero, sino que empezaba a ganar. 

ERO gracias a aquella medida se vendieron muchas más cintas a costa 
" de los detallistas. Crees que Erbe debería pensar en compensaros ante 
estas variaciones? 

Creo que cualquier empresa del mercado que varíe sus precios o sus condi¬ 
ciones de comercialización, debería compensarnos, como han hecho otras em¬ 
presas de software. 


M 


1UNDO AMSTRAD NO PRETENDE, AL 
DIVULGAR ESTA ENTREVISTA, CENSURAR 
LA OFERTA LANZADA POR ERBE, SINO SIMPLEMENTE 
DARA CONOCERLA MANERA DE PENSAR DE LOS MINORISTAS 
DE ESTE MERCADO, QUE SIN DUDA CONSTITUYEN UN IMPORTANTE 
SECTOR DENTRO DEL MUNDILLO INFORMÁTICO. 
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País de inventores, descubridores y aventureros no teníamos, porqué 
ser menos en un campo que incluye estas tres cualidades, de hecho nos ha 
costado unos años el ponernos en marcha y ala altura de otros países, pero 
una vez que hemos conseguido arrancar el motor podemos decir que la 
informática española está a la altura de las circunstancias, así es y las ge¬ 
neraciones más jóvenes están descubriendo, inventando y aventurándose 
en programas y juegos verdaderamente originales. 

Pese a todo seguimos chocando con las sempiternas barrera, la falta 
de herramientas de información y de apoyos hacen que el reconocido inge¬ 
nio y capacidad latinas para la programación, tengan nuevamente que lu¬ 
char contra los elementos y superar a fuerza de un derroche de tesón y sa¬ 
crificio dificultades que programadores de otros países tienen resueltas de 
antemana 

Mundo AMSTRAD ha sido tildada de ser una publicación enfocada 
a un público poco iniciado en el campo de programación, y en efecto así 
es, dado que pensamos que el único medio para que existan verdaderos 
especialistas en un futuro, es fomentar a aquellos que todavía no saben pero 
que tienen interés por aprender. 

Sin embargo el equipo de redacción de nuestra revista, compuesto por 
programadores expertos que han realizado numerosos programas comer¬ 
ciales se pone a disposición de todos aquellos que deseeis cualquier tipo 
de colaboración con nosotros o con programadores de toda España para 
el intercambio de rutinas, herramientas, etc. 
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JUEGOS 



ACTIVISIÓN 
PROEIN S.A. 
FORMATO: CASSETTE 
PRECIO 875 PTS. 


Bienevenido al juego... 

“Es la hora sin tiempo; es el tiempo 
sin mente; es el juego sin tiempo y el 
juego que retará a tu mente. 

Bienvenidos, buscadores de ilusión, 
al castillo de la confusión. 

Me llaman Treguard, Señor de las 
Mazmorras. 

Es la hora de iniciar tu búsqueda en 
las oscuras salas del castillo de Damo- 
nia, combatiendo los demonios que se 
arrastran y en los abismos alimentan 
tu terror. Haz conjuros si los crees ne¬ 
cesarios para obtener tu libertad. 

¡Atención!, ¡Atención! Te vigilaré y 
de vez en cuando, una pista te daré. 

Hay oráculos buenos y malvados; 
uno se llama Runius y el otro Bugga- 
ne. Consúltales y consejos te darán so¬ 
bre las cosas que te sorprenderán. 

Pero la pesadilla es tuya: ganar, per¬ 
der... o morir. 

Aquí no hay nada real y probable¬ 
mente todo sea ilusión. De manera que 
sigue diciendo: “Es sólo un juego... ¿o 
no?”. 

TU MISION 

Estás en algún punto del tiempo, en 
una tierra en que los extranjeros no son 
bienvenidos. Sobrevivir es tu deber y 


el conocimiento tu objetivo. Busca en 
las mazmorras y estancias del castillo 
de Damonia aquellos objetos que te 
puedan servir para librarte de las ga¬ 
rras de la oscura mansión y sus sinies¬ 
tros habitantes. 

Tu fuerza vital se representa como 
una vela al lado de la página, que se 
irá consumiendo según pase el tiempo 
y según los golpes que te propinen los 
guardianes de Damonia. 

Cada página del libro representa al¬ 
gún lugar del castillo, el cual toma vida 
cuando penetras en él. El señor de las 
mazmorras y los oráculos observan las 
acciones de los caballeros, debido a lo 
cual aparecen de vez en cuando hacien¬ 
do ciertos comentarios. 


LOS PODERES DEL 
CABALLERO 

El caballero puede combatir con sus 
enemigos y realizar conjuros HE¬ 
CHIZANDO. 
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JUEGOS 


Seleccionando la palabra SPELL y 
a continuación el nombre del hechizo, 
lograrás realizar un conjuro. Ten en 
cuenta que para realizar un conjuro, 
primero deberás haberlo encontrado. 

El tipo de conjuros que podemos en¬ 
contrar es: 

— Anvil (Yunque). Con este conju¬ 
ro lograremos estrellar todos los dia¬ 
blos de la pantalla contra el suelo. 

— Caspar (Materializa). Materiali¬ 
za la llave que te permitirá abrir cier¬ 
tas puertas del castillo. 

— Alchcmy (Alquimia). Convierte 
a algunos personajes en esferas de oro 
mazizo, la mayoría pueden ser recogi¬ 
das por el caballero como tesoro. 

— Ice (Hielo). Una nube cargada 
de lluvia mágica congelará todo. Tan 
pronto como la nube se evapore, todo 
volverá a ser como antes. 

— Toad (sapo). Convierte a tus ene¬ 
migos en sapos. 

— Meta morph (Metaformo). Con¬ 
vierte los personajes en otros distintos. 



* * * 

Nada más que decir de Knightma- 
re, que es un gran juego, con una gran 
calidad gráfica y que nos mantendrá 
pegados al ordenador días y días has¬ 
ta conseguir acabarlo. 

Es de agradecer el pequeño diccio¬ 
nario que PROEIN S.A., incluye jun¬ 
to con las instrucciones, pudiendo de 
esta forma entender fácilmente cual¬ 
quier texto en inglés que aparezca en 
pantalla; así como frases hechas. 



L. J. GARCIA 


Para luchar necesitarás encontrar un 
arma, por ejemplo una espada, una 
vez la consigas no tendrás más que 
acercarte a tu enemigo y combatir pul¬ 
sando repetidas veces el botón de 
disparo. 



FREDDY HARDES II 
CLAVE: “897653" 



FREDDY HARDEST I 


10 REM L.J.S 

20 BOEDER 0:INK 0,0:M0DE 0:LOCATE 3,10:P 
BINT"PON EL ORIGINAL":OPENOUT "d":MEMORY 
511:CLOSEOUT 

30 LOAD"!OLOAD":PGKE 609,201:CALL 512 
40 POKE 26232,O:CALL 32768 


10 REM L.J.G 

20 BORDEE O:INK 0,0:MODE O:LOCATE 3,1O:P 
ElNT"PON EL ORIGINAL":OPENOUT "d":MEMORY 
Sil:CLOSEOUT 

30 LOAD"!OLOAD":POKE 609,201:CALL 512 
40 POKE 35578,0:CALL 32768 


LUIS JORGE GARCIA 
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JUEGOS 




OPERA SOFT 
FORMATO: CINTA 



Por fin llega la Abadia, uno de los 
primeros programas tridimensionales 
españoles, y a su vez el mejor de to¬ 
dos, tanto de programas extranjeros, 
como nacionales. Es el cuidado gráfi¬ 
co de las estancias, de los personajes, 
de los mínimos detalles que en el jue¬ 
go aparecen, lo que le convierte en una 
verdadera creación sotweriana como 
nunca se ha visto. Y razón de ello, es 
que se han utilizado las 128k de me¬ 
moria por completo, por lo que los su¬ 
fridos usuarios de 48k no podrán pro¬ 
bar tal manjar. 

Por supuesto, las vamos a tener muy 
crudas con la tal Abadía, ya que la di¬ 
ficultad de este juego alcanza cotas in¬ 
sospechadas; pensar acabarlo en un 
día es cosa de locos, por lo que debe¬ 
remos plantearnos una buena estrate¬ 
gia a seguir. También podemos hacer 
una grabación de situaciones, pulsan¬ 
do CTRL y simultáneamente una de 
las diez teclas de función (Fo F9), las 
situaciones quedarán grabadas en me¬ 
moria y podremos volver a cualquiera 
de ellas con MAYS (SHIFT) más la te¬ 
cla de función correspondiente. Para 
grabar en disco: CTRL + TAB, y pul¬ 
samos S. 

Y que más decirte de la Abadía del 
Crimen que ya no sepas; es un juego 
magnífico, con unos gráficos sober¬ 
bios, una dificultad escesiva, un mon¬ 
tón de pantallas con gran realidad y ca¬ 
lidad gráfica. 

La diversión está servida, los asesi¬ 
natos no han hecho más que empezar. 


Luis Jorge García 
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JUEGOS 



Marble Madness, es uno de esos tí¬ 
picos juegos, en ios que manejas una 
bolita sobre un plano tridimensional. 
Tu misión es ir avanzando por dicho 
plano desafiando la inercia de la bola 
y consiguiendo así desplazarte hasta el 
lado de menor pendiente. 

El tiempo es un punto en contra, tus 
peores enemigos, las bolas negras, in¬ 
tentarán desviarte de tu ruta o arrojar¬ 
te al vacío, logrando asi que pierdas el 
poco tiempo que te queda, para cum¬ 
plir tu misión. También tendrás en con¬ 
tra, los grandes vacíos que hay en di¬ 
cho plano y a sus lados, por los que 
en cualquier descuido caeremos por 
ellos. (Perdiendo el consiguiente 
tiempo). 

Nuestro objetivo será recoger todos 
los puntos posibles que estén en el pla¬ 
no y lograr atravesarlo en el menor 
tiempo posible. Si hemos conseguido 


atravesarlo y además, nos ha sobrado 
tiempo, éste se convertirá en bonus y 
se incrementarán nuestros puntos en 
relación al tiempo sobrante. 

Quizá Marble Madness no sea un 
juego demasiado original, (para los 
tiempos que corren), pero su calidad 
gráfica y dificultad, proporcionan cier¬ 
tas dosis de adicción que nos atará al 
ordenador durante meses y meses. Y 
decimos meses, por que Marble Mad¬ 
ness, incorpora un diseñador gráfico, 
con el cual podremos diseñar nuestras 
propias pantallas y convertir así el jue¬ 
go en otro diferente. 


MARBLE 

MADNESS 



EL DISEÑADOR 

Dicho diseñador, (como ya contába¬ 
mos), ofrece la posibilidad de realizar 
nuestras propias pantallas, variando 
así la dificultad a nuestro gusto, dichos 
bloques tienen diferentes formas y ca¬ 
racterísticas para que podamos formar 
nuestros mapas y darles la dificultad 
que queramos. Podremos elegir tam¬ 
bién el número de enemigos por pan¬ 
talla, su colocación y asimismo la co¬ 
locación de los puntos y el valor de 
éstos. 

TRUCOS 

Si nada más empezar el juego, no 
hacemos nada, no tocamos ninguna te¬ 
cla, en la mayoría de los casos, la bola 
avanzará sola, pasando por su cuenta 
las tres primeras pantallas. Pero cuida¬ 
do, la cuarta no la pasará nunca, ten¬ 
drás que hacerlo tú con paciencia y ha¬ 
bilidad. Y si no lo consigues, ya sabes; 
el diseñador puede resolver tus pro¬ 
blemas. 


TIEMPO INFINITO: 
POKE 33711,0 
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JUEGOS 



10 RSM POR LUIS JORGE GARCIA 
MUNDO AMSTRAD 
MARBLE MADNESS 

20 CLS 

25 LOCATE 1,10:PRINT "PON LA CINTA ORIGI 
NAL DESDE EL PRINCIPIO" 

30 LOCATE 3,16:PRINT "PRESIONE ENTER AL 
FINALIZAR LA CARGA" 

40 MEMORY &9FFF 

50 LOAD "¡MARBLE MADNESS", &A000 
60 POKE 40972,201 
70 CALL &AOOO 

80 POKE 33711,O:CALL 33000 
90 SAVE "CARMARBLE" 


EL CARGADOR 

Tecleando el cargador, obtendremos 
tiempo infinito, gracias al cual podre¬ 
mos acabar el juego con toda se¬ 
guridad. 


L. JORGE GARCIA 


CARGAS EL PROGRAMA 
ORIGINAL A PARTIR DEL 
SEGUNDO BLOQUE 


8 MUNDO AMSTRAD 



























































































JUEGOS 


CHALLENGE OF THE 
GOBOTS 


PRECIO: 875 pts. 
FORMATO: CINTA 
DRO 



Ciertamente Móebius es un extraño 
planeta. Probablemente es el único es 
el universo que tiene una sola cara. Se 
encuentra situado en los confines del 
espacio colonizado por los hombres. 
Pero.no es su peculiar aspecto lo que 
le ha hecho famoso, sino las ingentes 
cantidades de minerales que produce 
su suelo. Móebius se ha convertido ya 
desde el siglo XXII, en la principal 
fuente de riqueza y energía de todo el 
sistema solar y sus aledaños. 


Los Móebius son gente pacífica que 
se dedican a trabajar, en las minas. Por 
eso, el día en que el cielo se volvió ne¬ 
gro, oscurecido por un increíble núme¬ 
ro de robots voladores, los Móebians 
no supieron como defenderse y casi sin 
darse cuenta fueron sometidos al terri¬ 
ble dominio de Gog y sus robots. El 
malvado Gog se apoderó enseguida de 
todas las minas del planeta, se cons¬ 
truyó un templo y se dedicó a la bue¬ 
na vida. Mientras, sus secuaces Bad- 


bot, Turbo, Coptur y otros muchos tra¬ 
bajaban para él extrayendo todo el mi¬ 
neral que podían. 



Pero el objetivo de Gog no era que¬ 
darse en Móebius disfrutando del pai¬ 
saje. Sus minas estaban puestas en la 
conquista de la tierra. El planeta mi¬ 
nero era una escala forzosa para que 
sus robots repostasen energía y se con¬ 
virtieran en los seres más poderosos de 
la galaxia. Alarmados por estas noti¬ 
cias, los terrestres pusieron rápidamen¬ 
te a punto el Leader 1, un fabuloso ro¬ 
bot transformable. En el aire su 
aspecto es el de un F-15 dotado de lá¬ 
ser. En el suelo se transforma en Go- 
bot, un gigantesco robot de combate. 
Leader 1 fue enviado al planeta Móe¬ 
bius para combatir a Gog y sus secua¬ 
ces. ¿Conseguirá salvar la Tierra? 


10 REM POR LUIS JORGE GARCIA 

MUNDO AMSTRAD 
C.GOBOTS 

20 MEMORY 6999 

30 LOAD-gobcrts", 10600:POKE 12664.0 
40 FOR n=49000 TO 49013 :READ a :P0KE n. a 
:NEXT n 

50 DATA 33,104,41,17,64.0,1,64.139,237.1 
76,195,64.0 
60 CALL 49000 
70 SAVE “ CARGO BOT 
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JUEGOS 


LA PANTALLA 



EL JUEGO 

“Challenge of the Gobots” está ba¬ 
sado en una serie de dibujos animados 
del mismo nombres, producido por 
HANNA-BARBERA. En la versión de 
Ariola soft para Amstrad, dirigimos al 
supertransformable Leader 1 por la su¬ 
perficie de Móebius, al planeta con 
una sola cara. Esto produce un curio¬ 
so efecto ya que el paisaje que vemos 
en el techo será el mismo que recorre¬ 
mos por el suelo si seguimos avanzan¬ 
do. La gravedad nos atrae tanto hacia 
arriba como hacia abajo y ésto hace 
bastante dificultoso el manejo de nues¬ 
tro robot. 

Si además tenemos en cuenta que to¬ 
car cualquier objeto de la superficie, 
significa nuestra desintegración total, 
veremos que el juego resulta casi im¬ 
posible de completar. Sin embargo, el 
menú nos ofrece, aparte de la posibi¬ 
lidad de redefinir teclas, una serie de 
opciones (6 en total). La mayoría de 
ellas no son muy útiles y están referi¬ 
das al manejo de la nave. Pero hay 2 
opciones que nos serán vitales para po¬ 
der controlar un poco mejor a nues¬ 
tro Leader 1; GRAVITY ON/OFF nos 
permite desconectar los efectos de la 
gravedad y LAND DEATH ON/OFF 
hace que seamos inmunes a todos los 


objetos que haya por la superficie del 
planeta. Poniendo estas dos opciones 
en OFF y dejando las demás como es¬ 
tán podremos empezar a jugar un 
poco más relajados. 



LA MISION 

Leader 1 debe destruir todas las ba¬ 
ses de los secuaces de Gog. Estas ba¬ 
ses son unas esferas blancas que no son 
afectadas por las armas normales que 
disponemos. En la supericie de Móe¬ 
bius hay un cierto número de robots 
parados con aspecto de motocicleta, 
llamados Scooters. Flay que tratar de 
recogerlos todos y luego volver a sol¬ 
tarlos sobre las bases, pulsando la te¬ 
cla de las bombas. Es la única manera 
de destruir todas las esferas. Es acon¬ 
sejable cuidar un poco la puntería y no 
desperdiciar los Scoters, ya que hay 
un número contado y nos exponemos 
a quedarnos sin ellos antes de comple¬ 
tar la fase, que se acaba al destruir la 
última esfera. Si al final nos sobra al¬ 
gún Scooter nos darán bonus por ellos. 

Hay varios niveles de juego, todos 
con la misma misión aunque con un 
número creciente de enemigos, muchos 
de los cuales se llevan los Scooters para 
que no podamos usarlos. 

LAS ARMAS 

Aparte de los Scooters, que sirven 
únicamente contra las bases de Gog, 
Leader 1 tiene otras dos armas: 

—Cuando se encuentra bajo la for- 
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JUEGOS 


ma de F-15 puede disparar rayos con¬ 
tra los robots voladores. Algunos de 
ellos necesitan dos disparos para ser to¬ 
talmente aniquilados. Este arma es 
inagotable. 

—Transformado en Gobot, Leader 1 
puede arrojar piedras contra sus ene¬ 
migos. Este es el único medio para des¬ 
truir a los robots turbo, que se llevan 
los Scooters para esconderlos en las 
bases. Si derribamos a un Turbo con 
Scooter, éste caerá a la superficie y po¬ 
dremos recogerlo. 

Inicialmente Leader 1 no lleva pie¬ 
dras consigo. La forma de recogerlos 
es bajar al suelo y pulsar la tecla de ba¬ 
jada. Cada vez que pulsemos esa tecla, 
Gobot recogerá minerales del suelo y 


fabricará un pedrusco. Podemos coger 
cuantos queramos, pero se van 
agotando. 

LA PANTALLA 

1. Este indicador nos muestra los 
Scooters que poseemos. El modo de re¬ 
cogerlos consiste en volar al ras del 
suelo y pulsar la tecla de disparo cuan¬ 
do estemos tocando uno de estos ro¬ 
bots, el cual pasará inmediatamente a 
nuestro poder. Aunque el indicador 
esté completo, podemos seguir reco¬ 
giendo Scooters sin problemas. 

2. El número de aviones nos indica 
las vidas que nos quedan. Arriba está 


el marcador de puntos. Bajo el indi¬ 
cador de vidas hay otro que nos mues¬ 
tra el rango que poseemos como pilo¬ 
to. Empezamos como cadete y 
podemos aumentar nuestra graduación 
siempre que consigamos puntos sufi¬ 
cientes para ello. 

3. Marcador de las piedras que po¬ 
demos lanzar. Sólo nos es últil siendo 
Gobot y al igual que el indicador de 
Scooters nos muestra un cierto núme¬ 
ro de unidades, pero aunque esté lle¬ 
no podemos seguir fabricando piedras 
y almacenándolas. Estarán en nuestro 
poder aunque no aparezcan en 
pantalla. 

DAVID BURGOS PRIETO 


PROGRAMAS 


10 CLS 

20 LOCATE 10,10:PRINT "DIAGRAMA DE BARRA 

S":LOCATE 10,12:PRINT "POR CARLOS MONROY 

«• 

30 FOR X=1 TO 2000:NEXT X 
40 CLS 

50 INPUT "numero de barras “;b 
60 DIM c(b) 

70 FOR x—1 TO b 

80 PRINT "valor barra ";x;:INPUT c(x):IF 
c(x)>389 OR c(x)<0 THEN GOTO 80 
90 NEXT x --- 


—DE- 

NUESTROS— 


LECTORES 


CARLOS MONROY 
(MADRID) 


100 CLS _ ___■ — - 

_ 110 ORIGIN 10,10:PL0T 628,0,1:DRAWR -628 

,0:DRAWR 0,389 
120 t=10:c=l 

130 FOR X— 1 TO b___— — - - - 

- 140 ORIGIN t, 10 

150 t=t+628/b:c=c+l:IF c=4 THEN c=l 
160 FOR r=l TO c(x) 

170 PLOT 10,r,c:DRAWR 628/(1.5*b),0 — “ 

__ 180 NEXT r " ' 

190 NEXT x 


MUNDO AMSTRAD 11 




















JUEGOS 


COMBAT 

SCHOOL 


OCEAN - DISTRIBUIDO POR ERBE 
FORMATO: CINTA 
Precio: 875 ptas. 


EL JUEGO 


Acabas de alistarte en el Cuerpo de 
Marines, el más duro de los que exis¬ 
ten en U.S.A. Te enfrentarás a toda una 
serie de pruebas que te serán muy di¬ 
fíciles de superar. Tu objetivo es aca¬ 
bar el campamento, pero lo vas a te¬ 
ner muy duro. Incluso si lo consigues 
hay más aún. Lo más seguro es que te 
envíen a cumplir una misión que pon¬ 
drá a prueba todo lo que acabas de 
aprender. ¿Podrás conseguirlo? 

El juego se compone de nueve fases; 

1. Carrera de obstáculos. 

Tb misión será saltar por encima de 
las vallas, cuando ya las hayas recorri¬ 
do todas, verás una escalera horizon¬ 
tal. Salta sobre ella y agita a toda ve¬ 
locidad el joystick para pasar. Tus 
esfuerzos serán recompensados. 

2. Campo de tiro. 

Aparecen varios blancos al azar du¬ 
rante esta prueba y debes mover el cur¬ 
sor y disparar al mayor número posi¬ 
ble. Tiene que dar un número mínimo 
de blancos. Si te pasas del mínimo con¬ 
seguirás bonificaciones. 

3. Carrera del Hombre de Hierro. 

Debes conseguir y mantener una ve¬ 
locidad máxima mientras evitas obstá¬ 
culos como rocas y minas. Puedes sal¬ 
tar, pero cuidado con aterrizar sobre 
algo que te haga tropezar, perderás 
tiempo. 


5. Pulso. 

Perder esta fase, que es lo más fácil 
si juegas contra el ordenador, no sig¬ 
nificará tu expulsión. ¡Debes ganar a 
tu contrario! 


LA MISION 

Si logras jurar bandera te enviarán 
en una misión de rescate de un rehén 
en una embajada americana. Los de- 



4. Campo de tiro 2. 

Es parecido al campo de tiro 1, pero 
ahora tu arma es una metralleta y los 
blancos son tanques robot. 
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6. Campo de tiro 3. 

Es igual que campo de tiro 1, pero 
hay blancos de color rojo a los que no 
debes dar. 

7. Combate con el instructor. 

Es lo más difícil de todas las prue¬ 
bas. Tienes que derrotar al instructor 
con todas tus habilidades. 

8. Flexiones. 

Si es por muy poco por lo que no 
logras clasificarte en cualquiera de las 
seis pruebas anteriores, hay posibilidad 
de repescarte con las flexiones para 
conseguir poder pasar a la prueba si¬ 
guiente. Si no consigues pasar esta 
prueba, serás eliminado y volverás al 
principio del circuito. 
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JUEGOS 


talles son secretos, pero se sabe que el 
enemigo está fuertemente armado y 
debe ser derrotado con mucho valor. 

TRUCOS 

En el combate contra el instructor, 
lo mejor que puedes hacer es atacar y 


POKES AMSTRAD 

1112,0 TIEMPO INFINITO 
ACTIVADO 

1112,61 TIEMPO INFINITO 
DESACTIVADO 


huir con toda rapidez, así lograrás evi¬ 
tar sus golpes. 

El pulso no es una prueba indispen¬ 
sable, simplemente te dará tiempo 
extra. 

L. J. García 


COMO PONER 
POKESA LOS 



JUEGOS DE 
AMSTRAD 


Los juegos comentados en esta re¬ 
vista vienen en su mayoría acompaña¬ 
dos de los famosísimos pokes, ¿cómo 
introducirlos?, ¿para qué sirven?, ¿qué 
son?. Estas son las preguntas que ha- 
bituahncnte llegan todos los días a la 
redacción. Para solucionar dicho pro¬ 
blema, aquí respondemos por orden 
una a una cada pregunta. 

1. ¿Cómo introducirlos? 

Generalmente los “pokes” van in¬ 
cluidos en un cargador, no tendrás más 
que teclearlo y hacer RUN (ENTER). 
Te pedirá que pongas la cinta original 
(desde el principio, por supuesto) y no 
tendrás más que seguir las sencillas ins¬ 
trucciones en pantalla. Podrás disfru¬ 
tar de vidas infinitas, inmune, o lo que 
ofrezca dicho cargador. 

Si los pokes vienen sueltos, en el si¬ 
guiente formato: 

POKE dirección, valor 


podrás ponerlos con un TRANSTAPE 
AMSTRAD o cualquier otro aparato 
que permita poner pokes. 

Si no dispones de dicho aparato, haz 
los siguientes pasos: 

a) LOAD. Carga el BASIC. 

b) LIST. Lista el BASIC. 

c) Poner antes del CALL dirección 
los “pokes” deseados. 

Esta última forma no es muy fiable, 
ya que este sistema no funciona en casi 
ningún programa (la mayoría están 
protegidos). 

2. ¿Para qué sirven? 

Ofrecen ciertas ventajas en los jue¬ 
gos. Son muy útiles, para los que son 
difíciles, permitiéndonos acabarlos con 
facilidad. Los más normales son: 


— VIDAS INFINITAS 
— INFUME 
— TIEMPO INFINITO 
— SIN ENEMIGOS 

3. ¿Qué son? 

La instrucción “POKE dirección, 
valor”, del BASIC permite alterar el 
contenido de una posición de la RAM 
(memoria de acceso aleatorio). 

Dicho POKE introducido en un jue¬ 
go, puede alterar, eliminar o saltar cier¬ 
ta rutina o instrucción que np nos in¬ 
terese; pudiendo asi ofrecer las 
ventajas comentadas en el apartado 
anterior. 

L. J. GARCIA 
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JUEGOS 


ADELANTOS 



RASTAN 


Desde Inglaterra nos llega este fan¬ 
tástico programa en donde tendremos 
que luchar contra peligrosos dragones 
verdes, bajar por lianas y un sin fin de 
cosas más. 


CLEVER 

AND 

SMART 


Lo más seguro es que en España no 
se conozcan por el nombre de Clever 
and Smart sino por Mortadelo y File- 
món. Este juego que suponemos pron¬ 
to estará en España, proviene de Ma- 
gic Bytes, casa fundada en Alemania. 

No sabemos si estará el Super pero 
seguro que el profesor Bacterio hará de 
las suyas. 
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ADELANTOS 


JUEGOS 



GR AND 


PRIX 


Desde los primeros tiempos, siem¬ 
pre ha habido juegos referentes a ca¬ 
rreras de coches. Ahora le toca el tur¬ 
no a éste. Es una mezcla entre 
BANDERA A CUADROS y POLE 
POSITION. Según nos han comenta¬ 
do, el movimiento de velocidad es bas¬ 
tante bueno y la gran dificultad harán 
de este juego un buen simulado de Fór¬ 
mula 1. 


BRAVESTARR SUPER 


HANG-ON 

\ 



GARFIELD 

GARFIELD es ese gato que nos 
hace reir y pasar ratos inolvidables. Era 
raro que no estuviese en ordenador, 
por eso una empresa británica se ha 
hecho con los derechos y ha sacado en 
las pantallas a este simpático gato. Pa¬ 
rece ser que el juego simula un tebeo 
móvil, en donde nosotros dirigimos al 
personaje. 

Esperemos que esté muy pronto en 
nuestro país. 


Este programa nos recuerda al DE¬ 
SESPERADO, aunque no tiene nada 
que ver con él. Al parecer estamos en 
NEW TEXAS y tenemos que apro¬ 
piarnos de un montón de dinero y es¬ 
capar hacia la frontera del futuro. 

El argumento no está nada mal, sólo 
queda echarle un vistazo. 




Este programa que pronto estará 
en nuestras pantallas, es un clásico, ya 
que es un simulador de moto. Tiene 
cierto parecido al famoso ENDURO 
RACER, pero lo único que hay que 
realizar es una carrera por Asia, Afri¬ 
ca, América y Europa. 
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JUEGOS ADELANTOS 


500 cc GRAND PRIX 



500 cc GRAND PRIX es un simulador de motociclismo. Tenemos para elegir 12 circuitos diferentes, cada uno de 
ellos pertenece a un país distinto. La pantalla está dividida en dos partes, cada una depende de cada jugador. 



SIDEARMS es el clásico juego de 
marcianos, en donde lo único que nos 
importa es matar toda clase de seres 
que pululan por los confines del uni¬ 
verso, para que nuestra puntuación sea 
lo más alta. Si no nos equivocamos, 
tiene cierto parecido al NEMESIS y la 
posibilidad de poder participar dos ju¬ 
gadores. 


iroN 

BOR sE 

La acción se vuelve dinamita cuan¬ 
do los Gringos atacan. Debemos redu¬ 
cirlos, ya que ofrecen recompensas de 
hasta 20.000 dólares por cabeza. Tam¬ 
bién nos encontraremos trenes y caba¬ 
llos. Todo ésto lo veremos en IRON 
HORSE lo traerá a España KONAMI. 



Dentro de muy poco, KONAMI nos 
deleitará con este juego. 

El objeto es pasar las fuerzas ene¬ 
migas atravesando campos minados, 
arenas movedizas, puentes y un sin fir 
de peligros más. El argumento no estr 
nada mal, sólo nos queda esperar. 
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IM BE 0*11 "”S¡01F Y 


“CODIGO 
MAQUINA ” 


Lo primero que debemos saber, es 
que el código máquina no es un códi¬ 
go mágico que crea instantáneamente 
programas de la misma calidad que el 
‘software’ comercial. Es lento y labo¬ 
rioso de escribir y muy difícil de de¬ 
purar, pero los resultados después de 
desarrollar una rutina, son excepcio¬ 
nales y la rapidez es extraordinaria. 

Lo primero que se os tiene que me¬ 
ter en la cabeza es que todo, absoluta¬ 
mente todo, se puede hacer desde có¬ 
digo máquina. Primero debes pen¬ 
sar cómo hacerlo y luego desarrollar¬ 
lo. Una manera que me da bastante 
buenos resultados es hacer rutinas cor¬ 
tas, las desarrollo en basic y si funcio¬ 
nan como yo quiero, la traduzco a có¬ 
digo máquina. 

Y eso es lo que vamos a hacer en 
esta serie de artículos continuos. Nos 
vamos a saltar los artículos de las de¬ 
más revistas que informan que si los 
registros, que si el acumulador, que el 
HL, instrucciones de rotación, núme¬ 
ros binarios, etc... Todo ésto nos lo va¬ 
mos a saltar porque creo que a quien 
le interese estos artículos lo tendrá más 
que sabido y el que no, que adquiera 
algún libro de código máquina para 
principiantes que se lo explican muy 
bien. 

La misión de estos artículos es la de 
profundizar en el código máquina y 
que podáis ya desde el principio, ha¬ 
cer vuestros propios programas. Si lo 
seguís, vereis que dentro de poco po¬ 
dréis traducir perfectamente algunos 
programas que tengáis en basic hechos 
por vosotros. 


Supongamos que tenemos en basic 
este programa: 

MODE 1: INK 0,0: INK 1,15: INK 2,9: 
INK 3,10: PRINT “ESTO ES UN 
PROGRAMA DE PRUEBA DE GE¬ 
NESIS” 


La traducción a ensablador sería: 
LD A,1 

CALL #BC0E; pone el modo que se 
encuentra en el registro A 
LD A,0 
LD BC',0000 

CALL #BC32; en A el número de 
pluma en B y C las tintas si no son 
iguales se efectúa parpadeo. 

LD A,1 
LD BC,#0F0F 
CALL ,BC32 
LD A,2 
LD BC.0909 
CALL „BC32 
LD A,3 
LD BC.OAOA# 

CALL #BC32 

LD HL,TABLA; posiciona puntero 
al rótulo bucle: LA A, (HL) 

INC HL 
CP 255 
RET Z 

CALL #BB5A; imprime el código 
ascii que se encuentra en A 
JP bucle 

tabla: DEFM “ESTO ES UN PRO¬ 
GRAMA DE PRUEBA DE GENE¬ 
SIS” 

DEFB 255 


Con ésto habréis comprendido 
cómo se imprimen caracteres en la 
pantalla. Continuaremos en el siguien¬ 
te artículo. 


Quien no tenga ensamblador que 
copie los números que salen a la iz¬ 
quierda de éste. 

El código máquina tarde 0.210 y el 
basic 0.27. 

Como podrás comprender, en un 
programa tan corto y con llamadas a 
la ROM, no se puede notar la diferen¬ 
cia, pero aún así se nota. 


Hisoft GENA3.1 Assembler. Page 1. 
Pass 1 errors; 00 
7530 

7530 3E01 
7532 COOEBC 
7535 3E00 
7537 010000 
753A C032BC 
7530 3G01 
753F 010F0F 
7542 CD32BC 
7545 3ED2 
7547 01BDQ3 
754A CD32BC 
7540 3ED3 
754E 010A0A 

7552 C032BC 
7555 21B375 

7558 7E 
7550 23 
755A FEFF 
755C CB 
7550 CD5ABB 
7560 C35675 
7563 4553544F 

758B FF 

Pass 2 errors: 00 

Table used: 37 from 140 


10 

org 

30000 

?0 

Id 

»,1 

30 

cali 

PbcOe 

40 

Id 

a.0 

50 

Id 

beO 

60 

caD 

*bc32 

70 

Id 

a,1 

80 

Id 

bc,#0f0f 

90 

cali 

%32 

IDO 

Id 

a.2 

110 

Id 

be0909 

120 

cali 

*bc32 

130 

Id 

a,3 

140 

Id 

bc*0e0a 

150 

cali 

*bc32 

160 

Id 

hi.tabls 

170 

bude: Id 

a,M 

160 

inc 

bl 

190 

cp 

255 

200 

rtl 

i 

210 

caD 

»bbba 

220 

jP 

bude 


230 labia: defm "ESTO ES UN PROGRAMA DE 
PRUEBA 0E GENESIS" 

240 DEFB 255 
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PRACTICAS 

EN EL CODIGO 
MAQUINA 

TRANSFERENCIA DE 

BLOQUES (2. a PARTE) 


Como comentábamos en el capítu¬ 
lo anterior, una de las instrucciones del 
Z-80 para transferir bloques era la ins¬ 
trucción LDIR, aunque aún nos que¬ 
dan tres instrucciones más que expli¬ 
car: 

LDDR, LD1, LDD 

LDDR 

La función de la instrucción LDDR 
es prácticamente igual a la instrucción 
LDIR, con la única diferencia de que 
el bloque se transfiere al revés, es de¬ 
cir, los registros HL y DE no incremen¬ 
tan como en LDIR, sino que decre- 
mentan después de cada transferencia. 

Hay ocasiones, en las que es preci¬ 
so utilizar LDDR, ya que LDIR podría 
darnos serios problemas, por ejemplo, 
cuando es un bloque muy grande el 
que queremos transferir. 

LD1 y LDD 

Ambas son similares, pero realizan 
distintas funciones; 

LDI. Transfiere un único byte en el 
formato de LDIR, es decir, incremen¬ 
tando. 

LDD. Transfiere un único byte en el 
formato de LDDR, es decir, decremen- 
tando. 


• Otra instrucción similar a estas 
anteriormente descritas, puede ser: 
CPIR 

CPIR es una rutina de búsqueda y 
realiza como su propio nombre indica 
una búsqueda de un dato por toda la 
memoria. Vamos a tratar de explicar 
en unos cuantos apartados, cómo lo 
realiza. 

— Se utilizan los siguientes regis¬ 
tros; HL, BC y A. 

— HL almacena la dirección inicial 
del bloque a examinar. 

— BC es un contador, almacena la 
longitud del bloque a examinar. 

— A guarda el valor que deseemos 
buscar. Por supuesto, comprendido en¬ 
tre 0 y 255. 

— CPIR realiza la operación. 

Pasando a la práctica: 

10 LD HL,40000;dir. inicio 
20 LD BC,00100;longitud del bloque 
30 LD A,7 ;dato a buscar (en este 

caso 7) 

40 CPIR 

50 RET ¡devuelve el control. 

Con esta operación lograremos que 
HL contenga la dirección donde se en¬ 
cuentra el dato que buscábamos. 

Por supuesto CPIR tiene sus varia¬ 


ciones, pero son del mismo tipo que las 
de LDIR; 

— CPDR, la operación se realiza¬ 
rá decrementando HL, y no INCRE¬ 
MENTANDO como en LDIR. 

— CPD, igual que CPDR, pero 
sólo mira el contenido de una única di¬ 
rección. 

— CPI, igual que CPIR, pero sólo 
mira el contenido de una única direc¬ 
ción. 


LUIS JORGE GARCIA 
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NEH 


OFT 


' _ v.. -i' 

COMO GANAR 
A LA LOTO 
CON SU 
ORDENADOR 





En esta segunda parte 
artículo ofrecemos el pro 
grama que lleva a la prácti 
ca todos los principios téc XN 
nicos que vimos en lo ante-vv 
nórmente publicado. \v 
Debido a la gran canti-N\programa, se deberá elegir 
dad de cálculos y lo com-\\la opción 3 y poner al día 
piejo de los mismos, el pro-A^el fichero, a tal efecto se ad¬ 
grama se toma un largo ratoA\junta una tabla-índice de 
en inicializarse. Pero una\vapariciones actualizada al 
vez superada esta fase, clN^día 4-2-88. De cualquier 
resto de operaciones se rea-'\modo en el suplemento do- 
lizan de un modo casi in-^minical del diaro EL PAIS 
mediato. Vssuelen aoarecer tablas s¡- 

Para que pueda funcio-\\milares. 
nar es imprescindible la^y 
apertura previa de un fiche- \\cursores y la barra espacia¬ 
ra en disco o cinta de la si-^vdora para introducir los da- 
guiente forma: \\ios que necesita 


Una vez en el menú del 


El programa utiliza, los' 


y ». \ v x 


1 ’ Cargador del programa LOTO 

10 DIM NUMERO(49) 

20 OPENOUT "DATOS" 

30 FOR N=1 TO 49 

40 WRITE #9, NUMERO(N),FECHA $ 

50 NEXT 

60 GLOSE OUT 



cuíco r.bxz de teran 

10 MUDE 1 

f!0 mOATE 10,10:PKN 2: PKINTINICIALIZACU 
ON. ESPERE 10 MINUTOS." 

60 KANDOMIZK TIME 
U0 1)111 ll( 1,2):DIM v( 12) :DIM n(100) 

70 FOR f-1 T0 12 
80 FOR ni=l. TO 100 

90 n(m)-INT(BND*D0) :1K ri(m)=0 TUKN 90 
100 NEXT 
110 li(l, 1 )=n( 1) 
lili h( 1,21=1 
120 FOR r=l TO 100 
180 v«oan=0 
1 '10 FOR o=l TO 100 
160 IK n(r)=n(o) TtlEN vooob=voooo+1 
100 NEXT 

170 IP vootiu>b< 1,2) TtlEN nritorior=h( 1,1), 

: li(1. 1) =N(R):ti(1, 2) = voooo: FOR s = l T0 f-l v 
: JF v(a)=ti(l,l) TtlEN h(l, 1 )=ant,erior: s v 
=f-L:ELSK NEXT 
100 NEXT r 

106 IF f>l TtlEN GOSUB 300 ELSE v(f)=ti(l, 

1) 

200 NEXT f 
m PBINT CIUi$( 7) 

210 GOTO 600 
300 ' o relean 

310 IF v( f-1) <h( 1, 1) TtlEN v(f)=h(l,l):RE' 
TURN 
020 q=l 

330 1K v(q)>h(l, 1) TtlEN FOR a=f-l T0 q S s 
TEP -1:v(a+l)=v(a):NEXT:v(q)=h(1,1):RETU V 
RN 

340 q=q+l:IF qOf TtlEN GOTO 330 
360 RETURN 

<199 * INICIAL,IZAC10N 

600 GOSIJ1I 1000 

601 DIM E(2,6) 

602 DIM r(300,6) 

606 11IM NUMERO(49) 

810 NNUM=6 
820 NAI’=1 
830 QOSUB 2000 
6*10 GOTO 3000 
1000 '3UB PANTALLA 
1010 C1.S 

1080 LOCATE 12,1:PEN 1 iI'BINTLOTERIA PRI' 
MITIVA” 

1030 LOCATE 8,8:PEN 2:PBINT*1,-CANTIDAD 
DE NUMEROS:" 

1ÍM0 LOCATE Ü,7:PUINT"2.-CANTIDAD DE APU' 
ESTAS:” 

1045' LOCATE 8 , 9:PRINT"*IMP0RTE: ’’ 

1080 LOCATE 8,12:PRINT”3.-ACTUALIZAR DAT' 

OS” • ' 

1000 LOCATE 8,18:PRINT“4.-ELECCION DE Nü' 
MEROS" 

1070 LOCATE '8,18:PRINT"5.-VER NUMEROS" 

1080 LOCATE 1,22: PEN 3:PRINT" PULSA EL 
NUMERO DE LA OPCION DESEADA ” . xx 

^xxx^xxxxx^xxmw 
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Stí10 LOCATE 
¿tí¿0 LOCATE 
2030 I.OCATU 
2040 RETURN 
3000 'bunio Priñoipal 
3010 IK INKEY<64)=0 T11EH GOSUB 4000 
3020 IK 1NKKY(65)=0 TUEN GOSUB 4100 
'3030 IK INKEY (67 > =0 Til EN GOSUB 4200 
'3040 IK INKEY(56)=0 AND KLAG1=1 Til EN GOS 
Uli 3000 

3030 IK INKEY(48)=0 AND KLAG2=1 TUEN GOS 

Uf» (1(400 

3060 GOTO 3000 

4000 'mium 

4001. KLAG2=0 

4010 LOCATE 7,0: PEN 1¡PRINT"> M 
4020 IK INKEY(1)=0 AND nnua<12 THEN nnura 
IK nnura>6 AND nap=l Til EN napsnap 


JNKEY(8)=0 AND nnum>6 TOEN nnura= 


~nnunH1 
' + 1 

'4030 IK 
'mii.un-1 

'4040 IK INKEY(1O)=0 THEN GOSUB 2000:LOCA 
TE 7, O:PRINT" ":KETURN 
4042 IK NNUM--0 THEN NAI’=1 
4060 GOSUB 2000 
4060 GOTO 4000 

4100 ’ t.ap 

4100 KLAG2=0 

4110 LOCATE 7,7:TEN I¡PRINT"»" 

4120 IK INKEY(1> =0 AND nap<24 
ap+1 

INKEY(1)=32 AND nap<14 TOEN nap= 


THEN nap=n 


JNKEY(8)=32 AND nap>10 THEN rmp= 


'4120 IK 
'nap 1 10 
'4130 IK 
'nap-10 

'4130 IK INKEY(8)=0 AND nap>l TOEN nap=na 
'P-l 

'4140 IF INKEY(18)=0 THEN GOSUB 2000:LOCA 
'TE 7,7:PRINT" “:KETURN 
‘4100 GOSUB 2000 
'4160 GOTO 4100 
4200 ’aotuallzar datou 
1 4205 KLAG1=1 
‘4210 CLO 

4212 l'Hl NT" PROCEDI ENDO A CARGAR FICHERO” 
4220 OPENIN "DATOS" 

4230 KOR N=1 TO 48 

4240 INI'UT N8, NUMERO(N), FECHA* 

4200 HEXT 
4260 CL03EIN 
4270 CI.S 

1 42:10 lACATE 1, 1: 1>RINT"ULT1MA ACTUALIZACI ‘ 
. ON: " ; FECHA* 

4280 INI'UT "FECHA ACTUAL?";FECHA* 

4300 KOR N = 1 TO 48 
4310 LOCATE 1,8:PRINT"APARICIONES DEL NU • 
.:"¡LOCATE 30,6:PRINT NUMERO(N) 

4370 IK INKEY(1) =0 THEN NUMEKO(N)=NUMER < 
,0(M)H¡LOCATE 30,8:PRINT NUMERO!N) 

, 4 : 1:10 IK 1NKEY(8)-0 AND NUMERO(N)> 1 THEN 
, NUMERO (N)'-NUMERO!N)-1:LOCATE 30,8:PRINT> 
NUMERO!N) 

4340 IK INKEY(10) =0 TIIEN NKXT:GOTO 4360 
4300 GOTO 4320 
■l.lüM CLP. 

4370 PR1NT"PK0CEDIKND0 A GRABAR KICUERO”, 
4330 OPENOUT "DATOS" 

4380 KOR N-t TO 49 
4400 WRITE II8, NUMERO (N), FECHA* 

44JO NEXT 
4410 OLOSEOUT 
4417 GOSUB 1000 
441U GOSUB 2000 
4420 KETURN 

0000 'ELECCION DE NUMEROS 
50(3!. GOSUB 10000 
0010 KLAG2=1 

5012 LOCATE 7,15¡PEN 1:PRINT">" 

KOR N=1 TO NAP 


,6030 KOR m=l TO 6 
,0040 IK n=l THEN r(n, i»)=e( 1, iu) 

,6060 IK n—2 THEN r(n,m)=o(2,a): 

, 5060 IK ti>2 AND n<9 THEN IK n-2=m THEN t 
, (n,in)=n(2,m) ELSE r(n, m)=e( 1,M) 

• 5070 IK n>8 AND n<10 TOEN IF n-8=m THEN 
. r(n,w)=ci(K.ro) ELSE r(ri,ni) =e(2,M) 

'0060 IK n>14 AND n<20 THEN IK n-14=ra THE' 
' N r(N,M)=o(¿,m):r(n,mi 1 )=e(2, ra+l) :m=u*l; 

1 ELSE r<n,a) =e( 1,ni) 

.6090 IK ri> 19 AND n<26 THEN IK n-19=m THE' 
.N t !N, M)=n( l,oi): r(ri, in+1 )=o( 1, ratl):ra=ra+l: 

> ELSE r(n, a)--e(2;ni) 

.6850 NEXT m 
.6900 NEXT n 

.6999 LOCATE 7,15:PEN 1¡PRINT ” ”:RETURN 
. 8000 'preoentnolon de reaulfcados 
.6010 CLS 

.6020 PRINT "ION PANTALI.A 0 POR IMPRESORA' 

.<r/i>?" 

.6030 IK INKEY!27)---0 THEN UOTO 6040 ELSE 

'IK INKEY!36)=0 THEN GOTO 6500 ELSE GOTO 

. 6030 

.6040 CLS 

.0046 X=l:Y=l 

‘.6050 KOR N= 1 TO NAP 

'6070 IF X>=16 THEN Y=]2 

'6060 X1=X:Yi=Y 

.6090 LOCATE X, Y 

'0100 PEN 2¡PRINT"APUESTA NUM.”;N 
'6110 KOR M=1 TO 6 

'CJ20 Y1=Y1 + 1 ¡LOCATE XH6,YI:PEN 3:PKINT 

'R(N.M) 

'6130 NEXT M 
'0135 X=XH9 

'6140 IK X>=35 AND Y>=12 THEN IK INKEY(47 
')-0 THEN CLS:X=1:Y=1:ELSE GOTO 6140 
'6160 NEXT N 

'6162 IK 1NKKY!47)<>0 THEN GOTO 6182 

'6150 GOSUB 1000 

'6156 GOSUB 2000 

'6160 RETURN 

'6600 KOR N=1 TO NAP 

'6510 PRINTK8,"APUESTA NUM.";N 

'6620 KOR M=1 TO 6 

'6630 PKINTH8,R(N,M)¡ 

'8540 NEXT M,N 

'6545 PRINT#8 

'6600 RETURN 

.10000 'PONE ORDEN NUM. 

.10012 nl=l:ml=l 
'10015 can t=mi uní 
'10020 KOR ri=l TO 2 
'10026 IK n=2 THEN rul=l 
'10030 KOR m=l TO 6 
1 10040 c(n,m)=v(2*iul-nl+l) 

' 10046 ml=i»H 1 
'10046 OAut=cant-l 
'10047 IK cariL =0 THEN ril=l 
' 10000 HEXT ni 
100116 nl=nl+l 

' 10007 IK nant =0 TIIEN nl=l 
' 100110 NEXT n 
'10070 KOR n,=l TO 6 

.10080 IK numero!e(2,a))<numero(e(1,a)) T 
'III.N «=«(1, iu) :e(l,a)=e(2,a) :e(2,u)=a 
'10090 NEXT 
'10100 RETURN 
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HARDWARE 



TRANSTAPE 




PARA 




AMSTRAD. 

• • 



HARD MICRO... (MADEIN SPAIN) 




Precio 8.900 



El transtape para Amstrad, es com- 

gen y la posición de pantalla, en caso 

PONIENDO POKES 

patible en los modelos 464, 664 y 6128 

de que ésta estuviera descolocada. Tras 



CPC, pudiendo con él, grabar progra- 

haber realizado tan sencilla operación, 

Seleccionando la opción POKE, el 

mas en CINTA, DISCO y poner PO- 

un pequeño menú nos propondrá cua- 

ordenador nos preguntará por la direc- 

KES. 


tro opciones: Save, Load, Poke, Ret. 

ción y el valor que vamos a darle, in- 

Dicho transtape- 

-(amstrad)— dis- 

Accionando la S cambiará el menú 

traduciéndolo así 

en memoria. 

pone de un pulsador (INT), que gene- 

de la siguiente forma: Normal, Turbo, 



ra una interrupción no enmascarable 

Disco. Pudiendo elegir de esta forma 

INCONVENIENTES 

al ser accionado. Incorpora también 

el sistema más conveniente. 



un indicador luminoso que nos avisa- 


Graba toda la memoria, ocupando 

rá cuando el transtape está en marcha. 

GRABANDO EN CINTA 

más espacio en cinta y disco. 

También dispone de un RESET que 




inicializará la memoria y limpiará (sólo 

Seleccionando la opción SAVE, po- 

VENTAJAS 


en el 6128), el segundo bloque de 64K. 

dremos sacar una copia del programa 



Respecto a las prestaciones que ofre- 

a velocidad Normal o Turbo, según es- 

Permite pasar programas a disco di- 

ce, podemos explicarlas en tres blo- 

cojamos. Los bloques grabados en cin- 

rectamente y sin problemas. Cosa muy 

ques: 


ta serán seis. 

difícil de hacer cuando el programa 




está protegido o no se tienen suficien- 

FUNCIONAMIENTO DEL 

GRABANDO EN DISCO 

tes conocimientos. 

TRANSTAPE 



Se pueden poner pokes en cualquier 



Seleccionando la opción SAVE, po- 

programa con un 

100% de eficacia. 

Accionando el botón verde (INT) 

dremos sacar una copia del programa 

Tiene continuación del Bus de ex- 

del transtape, éste se pondrá en mar- 

en disco. Simplemente deberemos in- 

pansión, pudiendo de esta forma co- 

cha, esperando que ajustemos la ima- 

traducir el nombre del programa. 

néctar más periféricos. 


Por si te has comprado ya el TRANSTAPE AMSTRAD quizá te sirvan de 

< 


algo las siguientes ayudas: 


u 

CC 


1. LOS BLOQUES SE GRABAN EN LAS SIGUIENTES DIRECCIONES: 

< 

rj ’ 


Bloque 3 ... 49152,8788 (Pantalla).... Ocupa en disco. 9K. 

W 

u 


Bloque O. 

. 0,16384 . 

17K. 

o 


Bloque 1 . 

. 16384,16384 . 

17K. 

MN 

O 


Bloque Y . 

. 32768,7168 . 

8K. 



Bloque z . 

. 43952,1360 . 

2K. 

iXl 


Bloque . 

.es el cargador. 

1K. 

3 
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LISTADOS 


✓ 

| CONVERSOR 

4 MUSICAL 



1 DIM MU<1000),N(15):RESTORE 10000:F0R I 


1002 X$=INKEY$:IF X$="" THEN 1002 ELSE I 

=1 TO 15:READ J: N( I)=J:NEXT I: FOR 1=0 TO 


F X$="l" THEN 2000 ELSE IF X$="2" THEN 1 

8 :READ J:L{I)=J:NEXT I 


500 ELSE IF X$="3" THEN 5000 ELSE 1002 

5 MODE 1:INK 0,1:INK 1,26:INK 2,13:INK 3 


1500 CLS #2: LOCATE 25, 20: PRINT CI1R$(94): 

,0:PAPER 0:PEN 1:BOEDER 1 


PF=25 

6 RESTORE 10100:FOR 1=1 TO 20:READ X$:L0 


1502 WHILE INKEY( 47)00 

CATE 1,1:PRINT X$:NEXT I 


1504 IF INKEY(1)=0 THEN IF PF+2>33 THEN 

7 X$=INKEYÍ:IF X$="" THEN 7 ELSE CLS 


1510 ELSE PF=PF+2:1=2:GOSUB 1550 

10 SYMBOL AFTER 200 


1506 IF INKEY(8)=0 THEN IF PF-2<25 THEN 

12 SYMBOL 200,80,102, 195,129,129,195,102 


1510 ELSE PF=PF-2:I=-2:GOSUB 1550 

.60 


1508 FOR 1=0 TO 100.NEXT I 

14 SYMBOL 201,62,99,193,129,129,194,230, 


1510 WEND 

188 


1520 LOCATE PF,20:PRINT" ":PRINT MI,CHR 

16 SYMBOL 202,128,128,128,128, 128,128,12 


$(22)+CHR$(1):I=(PF-25)/2+l:ON I GOSUB 1 

8 , 128 


600,1650,1700, 1750, 1800 

18 SYMBOL 203,128, 128,128,128,128,128,12 


1522 MU(NN)=L(PF-25) 

8,0 


1530 PRINT CHR$(22)4CHKÍ(0):GOTO 1000 

20 SYMBOL 204,62,127,255,255,255,254,254 


1550 LOCATE PF-I,20;PRINT" ":LOCATE PF,2 

, 188 


0:PRINT CHR$(94):RETURN 

22 SYMBOL 205,128,128,128, 128,129,130,25 


1600 LOCATE #1,CO,8:PRINT #1,CHR$(218):R 

4,0 


IÍTURN 

24 SYMBOL 206,128,129,130,254,129,130,25 


1650 LOCATE #1,CO,8:PRINT #1,CHK$(219):R 

4, 0 


ETURN 

26 SYMBOL 207,61,103.195,129,129,195,102 


1700 LOCATE «1,CO,7:PRINT #1,CHRÍ(213):L 

, 60 


OCATE #1,CO,8:PRINT #1,CHRÍ(214):RETURN 

28 SYMBOL 208,1, 1, 1,1,1,1,1,1 


1750 LOCATE #1,CO,7:PRINT #1,CHRÍt215>:L 

30 SYMBOL 209,0,1,1,1,1,1,1,1 


OCATE #1,CO,8:PRINT #1,CHR$(216):RETURN 

32 SYMBOL 210,0,248,4,2,0,0,0,0 


1800 LOCATE fl1,CO,7:PRINT #1,CHR$(217):L 

34 SYMBOL 211,0,248,4,2,0,248,4,2 


OCATE #1,CO,8:PRINT #1,CHRÍ(216):RETURN 

36 SYMBOL 212,61,127,255,255,255.255,126 


1990 LOCATE 1,TN:PRINT CHRÍ(159):LOCATE 

,60 


l.TN-I:PRINT" “:RETURN 

38 SYMBOL 213,16,8,12,12,14,14,30,28 


2000 CLS#2:LOCATE 10,20:PRINT CIIR$(94):P 

40 SYMBOL 214,12,4,6,30,60,56,24,4 


F=10 

42 SYMBOL 215,0,25,62,62,28,4,8,8 


2002 WHILE INKEYf 47)00 

44 SYMBOL 216,8,16,16,32,32,64,64,0 


2004 IF INKEYf1)=0 THEN IF PF+2>18 THEN 

46 SYMBOL 217,0,9,29,14,2,36,116,56 


2020 ELSE PF=PF+2:1=2:GOSUB 1550 

48 SYMBOL 218,0.0,0,0,255,255,255,255 


2006 IF INKEY< B) =0 THEN IF PF-2<2 TiltíN 2 

50 SYMBOL 219,255,255,255,255,0,0,0,0 


020 ELSE PF=PF-2:I=-2:GOSUB 1550 

52 SYMBOL 220,96,96,110,118,102,102,104, 


2010 FOR 1=1 TO 100:NEXT I 

112 


2020 WEND 

60 GOTO 100 


2021 LO=L((PF-2)/2):ll=pf/2 

90 PRINTM1,CHRÍ(22)+CHRÍ(0):PAPER #1,2:P 


2022 LOCATE PF,20:PRINT" ":LOCATE 1,8:PR 

EN 41,3:CLS #1:FOR 1=216 TO 344 STEP 32: 


INT CHRÍ(159):TN=8:FOR 1=1 TO 100:NEXT I 

PLOT 16,1:DRAWR 650,0,3:NEXT I:RETÜRN 


2023 FOR 1=1 TO 300:NEXT I 

100 WINDOW #1,2,40, 1,15:G0SUB 90:PRINT#1 


2024 WHILE INKEY( 47)00 

,CHR$(22)+CHR$(1) 


2026 IF INKEY(2)=0 THEN IF TN+1>15 THEN 

110 WINDOW #2,1,40,23,25:PAPER #2,3:PEN 


2060 ELSE TN=TN+1:1=1:GOSUB 1990 

#2,2:CLS #2 


2028 IF INKEY(0>=0 THEN IF TN-1<1 THEN 2 

200 FOR 1=4 TO 18 STEP 2:LOCATE I,16:PRI 


060 ELSE TN=TN-l:I=-l:GOSUB 1990 

NT CHRÍ(209):LOCATE I,17:PRINT CHR$<208) 


2030 FOR 1=1 TO 100:NEXT I 

: NEXT I: LOCATE 13,16:PRINT CIIR$( 210) : LOC 


2060 WEND 

ATE 15,16:PRINT CHRÍ(210):LOCATE 17,16:P 


2070 LOCATE 1,TN:PRINT" ":LOCATE #2,7,2: 

RINT CHRÍ(211) :LOCATE 19,16:PRINT CI1R$(2 


PRINTM2,"1:BEMOL 2:NORMAL 3:SOSTENIDO" 

11) 


2080 Xí=INKEY$:IF X$="" THEN 2080 ELSE I 

202 LOCATE 2, 18:PRINT CHR$(200);" ”;C[IR$ 


F X$="l" THEN 2085 ELSE IF Xí="2" THEN 2 

(207);".“;CHR$(207);" ":FOR 1=8 TO 16 ST 


095 ELSE IF X$="3" THEN 2090 ELSE 2080 

EP 4:LOCATE I,18:PRINT CHR$<212);“.“;CHR 


2085 IF INT(N(TN-1))=N(TN-1) THEN TO=N(T 

$(212);" :NEXT I 


N-l) ELSE T0=(N(TN-1)-INT(N(TN-1)))*1000 

204 LOCATE 25,17:PRINT CHRÍ(218):" "¡CHR 


2086 LOCATE #1,co-1.tn:PRINT#1.CHR$(220> 

$(219);" “;CHR$(213);" ";CHR$(215);" ";C 


2087 GOTO 2097 

HR$(217):LOCATE 29,18:PRINT CHR$(214);" 


2090 TO=(N(TN)-INT(N(TN)))*1000:LOCATE # 

";CHR$(216);" ";CHR$<216) 


l,oo-l, tn:PRINT#l,CHRÍ(35):GOTO 2097 

999 C0=0:NN=-1 


2095 TO=INT(N(TN)) 

1000 IF co>37 THEN co=0:F0R i=l TO 1000: 


2097 SOUND 1,TO,L0*1000,7:MU(NN)=TO+LO:C 

NEXT i:PRINT#1, CHR$(22)+CHR$(0):CLS *1:0 


LS#2 

OSUB 90: PRINTM1, CHR$( 22) 4C!1R$( 1) 


2100 IF tn>7 THEN 2120 

1001 NN=NN+l:C0=C0+2:LOCATE #2,10,2:PRIN 


2102 ON 11 GOSUB 3150,3200,3200,3300,330 

T #2,"1:NOTA 2:PAUSA 3:MENU" 


0, 3400, 3400, 3500, 3500 
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( 


2110 GOTO 2130 


R 4¡CONTINUAR"¡LOCATE #2,9,2¡PRINT# 

2120 ON 11 GOSUB 3150,3600,3600,3700,370 


2,"2:LISTAR 5¡FINALIZAR":L0CATE#2,9, 

0, 3800, 3800, 3900, 3900 


3:PRINT#2,"3¡EMPEZAR" 

2130 IF 11/2=11\2 THEN GOSUB 3190 


5001 X$=INKEY$:IF X$<"1" OR X$>"5" THEN 

2140 GOTO 1000 


5001 

3150 LOCATE #1, co, tn:PRINT#l,CHR$<200):R 


5002 CLSH2:ON VAL(X$> GOTO 5009,5030,504 

ETURN 


0,5050,5080 

3190 LOCATE #1, co+1, tn:PRINT#1RETUR 


5009 FOR 1=0 TO NN 

N 


5010 T0=INT(MU(I)):LO=(MU(I)-INT(MU(I))) 

3200 LOCATE #1, co, tn: PRINTtll, CHR$( 201): L 


*1000: SOUND 1,T0, LO, 7 

OCATE #1, co,tn+1:PRINTUI,CHR$(202):LOCAT 


5020 NEXT I:GOTO 5000 

E «1, co, tn+2:PRINT#1, CUR$(203):RETURN 


5030 FOR J=0 TO NN 

3300 LOCATE #1, co, tn: PRINTH1, CIIR$< 204) :L 


5032 PRINT#8, INT(MU(J)); (MU<J)-INT(M1J(J) 

OCATE # 1, co, tn+1:PRINT#1,CHR$(202):LOCAT 


> > * 1000;" “;:NEXT J:GOTO 5000 

E #l,oo, tn+2¡PRINT#1,CHR$(203): RETURN 


5040 RUN 100 

3400 LOCATE #1, co, tn:PRINTfll,CHR$(204):L 


5050 CLS#2:GOTO 1000 

OCATE #1,co,tn+1:PRINT#1,CHR$(202):LOCAT 


5060 CLS:RUN" 

E # 1, co, tn+2: PRINT# 1, C(IR$(205): RETURN 


10000 DATA 127,142,134,159.150,179.169,1 

3500 LOCATE #1,co,tn:PRINT#1, CHR$<204):L 


90, 213.201,239.225,253, 284.268, 319.301,3 

OCATE #1, oo, tn+1:PRINT#1,CHR$(202):LOCAT 


58.338, 379, 426. 402,478.451,506 

E #1,co,tn+2:PRINT#1,CHR$(206).RETURN 


10002 DATA . 160, . 120, . 080, . 060, . 040, . 030 

3600 LOCATE #1, co, tn: PRINT#1, CHR$( 207): I, 


, . 020, .015, .010 

OCATE #1,oo,tn-1:PRINT#1,CHR$(203):LOCAT 


10100 DATA" MUSICA",," Con 

E #l,co,tn-2:PRINT#1,CHR$(209):RETURN 


este programa podras traduoir par-","tit 

3700 LOCATE #1, oo, tn: PRINT#1, CIIR$( 212 ) : L 


uras al lenguaje del AMSTRAD."," Los pae 

OCATE #1, co,tn-1¡PRINT#1,CHR$(208):LOCAT 


os a seguir son los siguientes:" 

E Ml,co,tn-2:PRINT#l,CUR$(209):RETURN 


10102 DATA" l-Elegir nota o pausa",” 2-E 

3800 LOCATE #1,co,tn:PRINT#1, CUR$(212):L 


legir la duración de la nota o pausa",” 

OCATE #1,co,tn-1:PRINT#1,CHR$(208):LOCAT 


3-Elegir posioion en la partitura"," 4-Y 

E #1, co, tn-2: PRINT# 1, CíiR${ 209): LOCATE #1 


ultimo decir si la nota es normal,","be 

,CO+1,TN-2:PRINT#1,CHR$(210):RETURN 


mol o ooBtenid».“ 

3900 LOCATE #1, co, tn: PRINTS1, C11R$(212): L 


10104 DATA,” Para mover los cursores de ✓ 

OCATE #1,co,tn-1:PRINT#1,CHR$(208)¡LOCAT 


elecoion u—",“tiliza las teclas del curs 

E #1, co,tn-2:PRINT#1, CHR$(209):LOCATE #1 


or y para ha-","cer la elección utiliza 

, CO+1, TN-2:PRINT#1, Cf!R$(211) ¡RETURN 


la barra espa-", "oladora.“ 

5000 CLS#2:LOCATE #2,9,1:PRINT#2,"1:TOCA 


PULSA TECLA PARA COMENZAR" 


i 
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10 RIJM ++++«■ MOSQUITO +++++ 
20 ' 


30 BORDER 9:INK O,9:INK 1,24:INK 2,6:INK 
3,2:PAPER 0:PEN 1:MODE 1:CLS 
40 RESTORE 9000:FOR Z=3 TO 2 2:READ E$:L0 
CATE 1,Z:PRINT Eí; CH14Í 7): NEXT: GOSUB 910 
O 

SO IF INKEY$="" TUEN 50 ELSE CLS 
60 LOCATE 3,7:PRINT"ELECCION DE LAS TECL 
AS DE JUEGO: " : LOCATE 6, 12 : PRINT'TARA SUB 
IR?" 

70 14=INKEYT:IK L$="" THEN 70 ELSE IF L$ 
oCURTÍ 13) THEN LOCATE 1,1:PRINT "SUBIR: 
": 14: S«=14 

30 LOCATE S, 12:PUINT"PARA BAJAR" 

90 14=INKEY$: IF L$="" THEN 90 ELSE IF L$ 
OCIIRTÍ13) THEN LOCATE 20, 1:PRINT "BAJAR 
: ";L«:B$=L$ 

100 LOCATE 5,12:PRINT"PARA IR A LA DEKEC 
1IA?“ 


110 14=INKEY$:IF L»=“" THEN 110 ELSE IF 
LTOCURTÍ13) THEN LOCATE 1,3:PRINT "DERE 
CHA: ";Lí:D$=L$ 

120 LOCATE 5, 12 :P11INT"PARA IR A LA IZQUI 
ERDA7" 

130 14=1NKEY$:IF 14-"" THEN 130 ELSE IF 
I4<>CHR*< 13) THEN LOCATE 20, 3:PRINT "IZQ 
UIERDA: ";L$:I$=L$ 

140 LOCATE 5,22:PRINT"ESTAS CONFORME? (S 
✓N) “ 


ISO 14=INKEY$:IF 14=.THEN 150 ELSE L$ = 

UITEKíí L$): IF L$="N" THEN CLS:G0T0 60 EL 

SE IF !4<>"S" THEN ISO 

160 BORDER 25:CLS:N=RND(TIME) 

170 LOCATE 1,1:PRINT STRINGTÍ40,143):LOC 
ATE 1,2:PRINT STRINGTí40,143):GOSUB 8000 
rtíOSUB 8100:G0SUB 8200:GOSUB 8300 
130 PEN 3:FOR Z=1 TO TM 
190 XS(Z)=lNT(KND* *38+2):YS(Z)=INT(RND*21 
) »4 

200 IF TEST(XS(Z)*1G-8,400-(YS(Z)*16-8)) 
<>0 THEN 190 

210 I.OCATE XS{Z),YS(Z):PRINT SP$:NEXT:PE 
N 1 

220 PEN 2:FOR Z=1 TO 10 

230 XM(Z)=INT(RND*38+2):YM(Z)=INT(RND*20 

) + 4 

240 IF TESTÍ XMÍ Z)*16-8,400-(YM(Z)*16-8)) 
<>0 THEN 230 

250 LOCATE XMÍZ),YMÍZ):PRINT MN$:NEXT:PE 
N 1 

260 XV=INT(RND*38+2):YV=INT(RND*21)+4:IF 
TESTÍXV*16-8,400-(YV*16-8))<>0 THEN 260 
ELSE PEN 3:LOCATE XV,YV:PR1NT V$:PEN 1 
270 XA=INT(RND*40+1):YA=INT(RND*21)+4:IF 
TESTÍXA*16-6,400-íYA*16-B))<>0 THEN 270 
ELSE PEN 3:LOCATE XA,YA:PRINT AR$:PEN 1 
280 XM=INT(RND*38+2):YM=INT(RND+21)+4:IK 
TEST(XM*16-8,400-(YM*16-8))<>0 THEN 280 
ELSE LOCATE XM,YM:PRINT MD$:DR$="D" 

290 J=0:L$=INKEY$ 

300 IF I,$=S$ THEN GOSUB 1000:J=1 
310 IF L$=B$ THEN GOSUB 1100:J=1 
320 IF Lí=D$ THEN GOSUB 1200:J=1 
330 IF L$=I$ THEN GOSUB 1300:J=1 
335 IF J=1 THEN GOTO 1400 
340 IF J=1 THEN SOUND 1,500,2 
350 K=RND+0.2:IF K<ZN/10 THEN 1500 
360 GOTO 290 

1000 LOCATE XM,YM:PRINT E$:IF YM>3 THEN 

YM=YM-1 

1010 RETURN 

1100 LOCATE XM,YM:PRINT E$:IF YM<23 THEN 
YM=YM+1 
1110 RETURN 

1200 LOCATE XM,YM:PRINT E$:IF XM<39 THEN 
XM=XMU:DR$="D" 


1210 RETURN 

1300 LOCATE XM,YM:PRINT E$:IF XM>2 THEN 
XM=XM-1:DR$="I“ 



1310 RETURN 

1400 TC=TEST(XM*16-8, 400-íYM*16-6)) 

1410 IF TC=2 THEN E=E+100:GOSUB 8000:MN= 
MN-l 

1420 IF TC=3 THEN 1600 

1430 IF XM=XV AND YM=YV AND MN=0 THEN 20 
00 


ítiv Livvn i a 






MD$ ELSE PRINT MI$ 

1450 E=E-10:GOSUB 8000:IF E<=0 THEN 160< 
1460 GOTO 340 

1500 IF XM<=XA AND TESTÍ(XA-1)*16-8, 400- 
(YA*16-8))=0 AND XA>3 THEN LOCATE XA,YA 
PRINT E$:XA=XA-1:GOTO 1520 
1510 IF XM>=XA AND TESTÍ(XA+1)*16-8,400- 
(YA*16-8))=0 AND XA<38 THEN LOCATE XA, Y/ 
:PRINT ET:XA=XA+1 


1520 IK YM<=YA AND TESTÍXA*16-8, 400-(( YA 
-1> * 16-8)>=0 AND YA>4 THEN LOCATE XA,YA : 
PRINT Eí:YA=YA-1:G0T0 1540 


15 .(0 IF YM> =YA AND TESTÍ XA*16-8, 400-( (YA 

*1)»10-8))=0 AND YA<23 THEN LOCATE XA, YA 
: PRINT E$:YA=YAH 

1S40 PlíN 3: LOCATE XA, YA . PRINT AR$: PEN 1 
1550 IF XA=XM AND YA=YM THEN 1600 ELSE G 
OTO 290 

1C00 FOR T-100 TO 1200 ÍSTEP 100: SOUND 1, 
T, T/l 00: NEXT: LOCATE 16+MS*3, 2 : PRINt CI1RT 
(143):MS=MS-l:FOR T=1 TO 1000:NEXT 
1610 IF MS< =0 THEN 1690 
1680 LOCATE 5, 10:PRINT'CONTINUAMOS? (S/N 
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r<!*7 

í 1630 L$=1NKEY$: IF 1.$="" Til EN 1630 ELSE L 
UPPER$(I,$):IF L$="S" TU EN GOSUB 9150:G 
OTO 160 ELSE IF L$<>"N" TUEN 1630 ELSE 1 
r TOO 

í: 1690 LOCATE 4, 10:1'RINT'TiAN MUERTO TODOS 
TUS MOSQUITOS":FOR T-l TO 2000:NEXT 
1700 CLS:LOCATE 1, 12: PKINT'TARA OTRA PAR 
TIDA PULSA LA TECLA P“:LOCATE 1,14:PRINT 
"PARA DEJAR EL PROGRAMA PULSA F” 

1710 L$=INKEY$:IF L$="" THEN 1710 ELSE L 
$=UPPER$(L$):IF L$="P" THEN RUN ELSE IF 
140 "F" THEN 1710 

1720 BOEDER 1:INK O, 1:INK 1,24¡PAPER 0:P 
EN 1:CLS:PRINT"PERPARADO PARA EL SIGUIEN 
TE PROGRAMA:RUN”" 

2000 FOR Z=1 TO TM:LOCATE XS(Z),YS(Z):PR 
1NT E$:PT=PT+10:SOUND 1, 100, 3 :GOSUD 6100 
:FOR Tal TO 100:NEXT T,Z:ZN=ZN+1:GOSUB 9 
1,60 ¡GOTO 160 

8000 PEN 3¡PAPER 1:LOCATE 1,1:PRINT USIN 

G"ENERGIA: Sttltlt" ; E: PAPER 0:PEN 1 

8010 IF MN=0 THEN LOCATE XV,YV:PRINT CHR 

$(249) 

8020 RETURN 

8100 PEN 3:PAPER 1:L0CATE 14,1:PRINT USI 
NG“PUNTOS: ttltd”;PT:PAPER 0:PEN 1: RETURN 

8200 PEN 3¡PAPER 1:LOCATE 27,1:PRINT USI 
NG"HABITAC ION:###";ZN:PAPER 0:PEN 1:RETU 
RN 

8300 PEN 3:PAPER 1:LOCATE 5,2:PRINT "MOS 
QUITOS:“:FOR Z = 1 TO MS:LOCATE 16+Z*3,2:P 
RINT MD$:NEXT¡PAPER 0:PEN 1:RETURN 
9000 DATA ” MOSQUITO", 

,” En MOSQUITO tendrás que sobrevivir e 
n","una habitaoion, que es un ambiente m 
uy",hostil para los do tu especie.,,” P 
ara tener energía oomeras de los”,"fruto 
s que hay en la habitación, pero" 

9010 DATA con cuidado de no tropezar con 
los,insecticidas ni con el aracnido que 
.trataran de eliminarte.,," Por fin pod 
ras salir por la ventana",cuando te haya 
s oomido todos los frutos.de la habitad 
orí.,," El movimiento dol mosquito se re 
al iza" 

9020 DATA con las teclas que tu elijas., 

," PULSA UNA TECLA PARA CONTINUAR" 
9100 SYMBOL AFTER 243:SYMBOL 244,99,60,3 
0, 30, 47,255, 42, 21¡SYMBOL 245,198,76,120, 
120, 244,255, 84, 168 

9120 SYMBOL 246,4,8,110,255,255,255,126, 
60:SYMBOL 247, 60, 38,36,60, 44,52,52,60:SY 
MBOI, 248, 24,60, 102, 255, 189, 165, 165, 165 
9130 SYMBOL 249,255,153,153,153,153,163, 
153,255: MI$=CHR$(244) : MD$=CHH$(245) :MN$= 
C11RX( 246): SP$=CHR$( 247) : AR$=CHR$( 248) : V$ 
-CHUT(143) 

9110 E:f=CHK$( 32): E=500: PT=0: ZN=1: MS=5: DI 
M XM(10),YM(10> 

9150 E=500:MN=10:TM=10+ZN*5:XS<1) = 1: YS( 1 
)=1:ERASE XS,YS:DIM XS(TM),YS(TM):RETURN 



1 INK 0,1:INK 1,24:PEN 1:PAPER 0:BOEDER 
1: MODE 1 

2 RESTORE 10000:FOR 1=1 TO 16:READ X$:L0 
CATE 1,1:PRINT X$:NEXT I 

4 X$=1NKEY$:IF X$="" THEN 4 ELSE CLS 
10 CLS:INPUT "Nombre dol jugador 1 (max. 

10 Jotras) ”;n$:IF LEN(n$)>10 THEN 10 
12 CLS:INPUT "Nombre del jugador 2 (max. 

10 letras) ";m$:IF I,EN(m$>>10 THEN 12 
14 CLS:LOCATE 9,10:PRINT"NIVEL DE JUEGO 
(1 o 2)" 

16 x$=INKKY$:IF x$="l" THEN nj=l ELSE IF 
x$="2" THEN nj=2 ELSE 16 
20 CLS:pn=0:pm=0:PX=10:PY=10:Xl=6:Yl=l1: 
X2=35:Y2=10:GOSUB 2000:GOTO 900 
100 IF y<yl-2 OR y>yl+2 THEN RETURN ELSE 
IF <y=yl-2 AND ly=l) OR (y=yl+2 AND iy= 
-1) THEN SOUND 1,100,6,7:ix=-ix;iy=-iy:R 
ETIJRN 

102 SOUND 1,100,5,7:ix=-ix:RETURN 
110 IF y<y2-2 OR y>y2+2 THEN RETURN ELSE 
IF (y=y2-2 AND iy=l) OR (y=y2+2 AND iy= 
-1) THEN SOUND 1,100,6.7:ix=-ix:iy=-iy:R 
ETURN 

112 SOUND 1,100,6,7:ix=-lx:RETURN 
120 IF y<yl-l OR y>yl+l THEN RETURN ELSE 
IF (y=yl-l AND iy=l) OR (y=yl+l•AND iy= 
-1) THEN SOUND 1,100,5,7:ix=-ix:iy=-iy:x 
=px:y=py:RETURN 

122 SOUND 1,100,5,7:ix=-ix:x=px:y=py:RET 
URN 

130 IF y<y2-l OR y>y2+l THEN RETURN ELSE 
IF (y=y2-l AND iy=l) OR (y=y2+l AND iy= 
-1) THEN SOUND 1,100, 5, 7: ix=-ix: iy=-iy:x 
=px:y=py:RETURN 

132 SOUND 1,100,5,7:ix=-ix:x=px:y=py:RET 
URN ' 

140 FOR I=-l TO 1;LOCATE xl,yl+l:PRINT" 

":NEXT 1:FOR 1=-1 TO l:LOCATE xx,yy+l:PR 
INT CHK$<138):NEXT i:xl=xx:yl=yy:RETURN 
150 FOR I=-l TO 1:LOCATE x2,y2+l:PRINT" 

":NEXT i:FOR i=-l TO 1:LOCATE xx,yy+i:PR 
INT CHR$(133)¡NEXT 1:x2=xx:y2=yy:RETURN 
900 LOCATE PX,PY:PK1NT" ":FOR i=6 TO 35: 
X$=INKEY$:LOCATE i,l:PRINT CHR$(143):LOC 
ATE i, 20¡PRINT C!1R$( 143):NEXT i:xx=6:yy= 
11:GOSUB 140:xx=35:yy=10:GOSUB 150 
910 px=21:py=10:IY=1:Z=RND:IF Z<0.5 THEN 
iX=l ELSE iX=-'l 
1000 WHILE (px<35 AND px>6) 

1010 x=px+ix:y=py+iy:IF y=2 OR y=19 THEN 
iy=-iy: SOUND 1,160,5,7 
1020 IF (x=xl+1 AND lx=-l) THEN GOSUB 10 
0 ELSE IF (x=xl AND ix=-l) THEN GOSUB 12 
0 

1030 IF (x=x2-l AND ix=l) THEN GOSUB 110 
ELSE IF (x=x2 AND lx=l> THEN GOSUB 130 

1040 LOCATE px.py:PRINT.LOCATE x,y:PR 

INT CUR$(144):px=x:py=y ' 
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1060 x$=INKEY$:IF (x$="q" OR x$="Q") AND 
yl>3 THEN xx=xl:yy=yl-l:GOSUB 140 
1068 IF x$="[" AND y2>3 THEN xx=x2:yy=y2 
-1:G0SUB 160 

1070 IF (x$="a" OR x$="A“) AND yl<18 THE 
N xx=xl:yy=yl+l:GOSUB 140 
1078 IF x$=")" AND y2<18 THEN xx=x2:yy=y 
2+1:GOSUB 150 

1077 IF nj=l THEN GOTO 1200 

1080 IF x$="V AND x2<34 THEN xx=x2 + l:yy 

=¡y2: GOSUB 160 

1086 IF <x$="x" OR x¡$=“X") AND xl<18 THE 
N xx=xl+1:yy=yl:GOSUB 140 
1090 IF x$="/" AND x2>22 THEN xx=x2-l:yy 
=y2:GOSUB 150 

1095 IF (x$="Z" OR x$="z“) AND xl>7 THEN 
xx=xl-l:yy=yl:GOSUB 140 
1200 X$=ÍNKEY$:WEND 

1300 IF PX>34 THEN PN=PN+1 ELSE PM=PM+1 
1302 GOSUB 2000¡GOTO 900 
2000 LOCATE 6,22:PRINT n$;pn:LOCATE 
6, 24: PRINT m$pin: LOCATE 9,1:PRINT"1: 
PARTIDA 2:ABANDONAR" 

2002 X$=INKEY$:IF X$="l“ THEN RETURN ELS 
E IF X$="2" THEN 4000 ELSE 2002 
4000 CLS:RUN“ 

10000 DATA ” TENIS' 1 ,, " Jue 

go da tenis para dos Jugadores, oon",''do 
s niveles de juego, en el nivel 1, la' 1 ," 
raqueta se mueve solo en sentido vertí-" 

,"oal en el nivel 2, en sentido vertical 
y","horizontal." 

10002 DATA” El Jugador 1 esta a la izqui 
erda y mué-","ve pon Q,A (arriba y abajo 
>, Z,X (izq. ", "der. >, y el Jugador 2 est 
a a la daraoha","y mueve oon. [,] (arriba 
y abajo), /,\\"<izq. der. “ 

PULSA TECLA PARA CONTINUAR" 


./x. /'v 7\/ x/x/x /^y 7^/ tw 

CHR - EDITOR 


10 1 PROGRAMA << CHR-EDITOR>> 

EDITOR DE CARACTERES 

20 SYMBOL AFTER 31:NC=1:DIM A(100,8) 

30 MODE 0:BORDER 1:INK 0,1:INK 1,26:INK 
i 2,24:INK 3,8: PAPER 0:PEN 1:CLS 
40 LOCATE 5,5:PRINT"CHR~EDITOR":PEN 3:L0, 
CATE 7,12:PRINT“EDITOH":LOCATE 9,14:PRIN 
, T"DE 11 : LOCATE 5,18: PRINT"CARACTERES 11 
50 FOR T=1 TO 2000 STEP 6:S0UND 1,T,1:S0; 
■UND 2,T+10,1:NEXT 
,60 MODE 1:INK 3,6:PEN 1:RESTORE 1090:FOR 
Z = 1 TO 22:READ E$:LOCATE 1,Z:PRINT E$:8; 
OUND 1,200, 2:NEXT:GOSUB U30:GOSUB 1060 
,70 CLS:LOCATE 2, 2:PRINT'DEFINICION DE LA' 
.S TECLAS DE MOVIMIENTO":LOCATE 5,10:PRIN 
T"PARA SUBIR EL CURSOR?" 

;80 S$=INKKYí:IF S$="" THEN 80 ELSE LOCAT. 
E 1,4:PRINT“SUBIR ";Sí 
90 LOCATE 8,10¡PRINT STRING$(30,32>:LOCA< 
,TE 5,10:PRINT"PARA BAJAR EL CURSOR?" 

100 B$=INKEY$:IF B*="" THEN 100 ELSE LOC' 
ATE 20,4:PRINT"BAJAR "¡B$ 

110 LOCATE 5,10¡PRINT STRING$<30,32):LOC 
‘ATE 1,10:PRINT"PARA LLEVAR A LA DERECHA 
,EL CURSOR?" 

120 D$=INKEYÍ:IF D$=”" THEN 120 ELSE LOC ' 
• ATE 1,6:PRINT"DERECHA ”;D$ 

130 LOCATE 1,10:PRINT STKING$(39, 32):LOC 1 
¡ATE 1,10:PRINT”PARA LLEVAR A LA IZQUIERD 
.A EL CURSOR?" 

140 I:f=INKEY$:IF I$=.THEN 140 ELSE LOC 

.ATE 20,8:PRINT"IZQUIERDA ";I$ 

'160 LOCATE 1,10:PRINT STRING$(39,32):LOC 
-ATE 5,10:PRINT"PARA FIJAR EL CURSOR?" 

100 F$=INKEY$:IF F$="" THEN 160 ELSE LOC 
'ATE 10,8;FRINT"FIJAR CURSOR ";F$ 

.170 LOCATE 1,10:PRINT STRING$<39,32):PRI 
NT"ESTAS CONFORME CON ESTAS TECLAS (S/N) 

100 1,$=INKEY$: IF L$="“ THEN 180 ELSE L$= 

‘ UPPEIÍÍ (L$): IF L$="N" THEN 70 ELSE IF L$< 
>"S" THEN 180 

190 PEN 1:CLS:LOCATE 7,1:PRINT"MENU DE 0 
.PCIONES:":RESTORE 1120:FOR Z=l- TO 9:READ 
E$:LOCATE 1,Z*2+2:PRINT Z¡”.~ ”;E$:NEXT 
¡LOCATE 6,23:PRINT“PULSA EL NUMERO DE LA 
OPCION":SOUND 1,100,7 
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A/V 1UEH 200 

^^^-•-’ 23 °' 230 ' 75 

' , e **> 

■ D $ *•* 
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f¿»«U * 8l k=9 
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^ ¿ 1HBN E=1 QR j-1 10 ftE*8 

® ©*iw¡ga‘iKí.ffi <HW(t4l) ^ 
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|SaE s;0RXs ^ 
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i 

040 A(NC, Oí-T-ur. ' C>-A(NC -CC):. 

600 LOCATE 1¿£ C S NC+I - 

0; I-OCA TE r*Í ‘ y^ :PH INT T; ••. r „ r . 

:&’&! r M -*■*»* 
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«íR!» -o 
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SUBMARINO 


10 ' «< SUBMARINO >>> 

20 ’ 

30 SYMBOL AFTER 0:MODE 1:BORDEE 11:INK O 
,11:INK 1,24:INK 2,6:INK 3,1:PAPEB 0:PEN 
1:CLS:RESTORE 0000:POR Z=1 TO 25:READ E 
LOCATE 1,Z:PRINT E$:SOUND 1,100,3:NEXT 
:GOSUB 0600 

40 IF INKEY$="" TREN 40 

50 MODE 1: BORDER 1:WIND0W #0,1,40, 12,25: 

PAPER #0,3:PEN #0,1:HINDOW #1,1,40,2,11: 

PAPER #1,0:PEN #1,2:WIND0M #2,1,40,1,1:P 

APER 112, 3:PEN #2,2:CLS #0:CLS H1:CLS #2 

60 HS=5:NT=10:TT=0:NB=TT:TB=TT:GOSUB 000 

0:GOSIJB 6010:GOSUB 8020:YB=10 

70 X-20:Y=11:GOSUB 5010: XMN=2 : YMN=XMN :DX 

MN=1:DYMN=DXMN:GOSUB 5020 

80 L:f-INKEY$: IK L$<>“" TREN L$=UPPER$(L$ 

90 IF L$="F“ TREN 10000 

100 IF L$="Q" AND X>1 TREN GOSUB 5000:X= 

X-l 

110 1F L$=“W'' AND X<40 TREN GOSUB 5000:X 
=Xfl 

116 GOSUB 5010:GOSUB 5200 

120 IF Lí=CRR$(32) AND TP=0 TREN TP=1:XT 

l‘=X: YTP=Y-1 :NT=NT-1: GOSUB 6010:TT=TT+1 

125 IF TP=0 AND NT=0 TREN 7100 

130 GOSUB 5020:IF XMN=X AND (YMN=Y OR YM 

H-Y H) TREN 6000 

140 IF TP=1 TREN GOSUB 5100 

200 GOTO 80 

990 GOTO 999 

6000 LOCATEMO,X,Y:PRINT E$:LOCATESO,X,Y+ 
1 SPRINT Eí:RETURN 

_Z_¿ 


£ v 1 t ° .«•--■■“‘“.«V 


*«"'"&£•*** £ futa 

:1ro"» ss-5 siSysx 

,„\v t« ul a a y“>•**•.'•..«natío • o. 

oi „toC 

\\0 . 0r »anua* Q tor©D qU a oero 

V 0 u»oroo.lV , OOr a * 8 P u " t naut»^ 

s u% 2-131 > * tcd o B da ,® a daíln ir fl8U , 

' U p ,ear , gram* carao*»*^»» 


/ 




k_ 


5010 BOCATERO,X,Y:PRINT SB1$:L0CATE«0,X, 
Y+l:PRINT SB2®:RETURN 

6020 PEN#0,2:LOCATE #0,XMN,YMN:PRINT E$: 

IF XMN>1 AND XMN<40 TREN XMN=XMN+DXMN EL 

SE DXMN=-DXMN:XMN=XMN+DXMN 

5030 IF YMN>1 AND YMN<13 TREN YMN=YMN+DY 

MN ELSK DYM1P--DYMN: YMN=YMN+ 1)YMN 

5040 LOCATEMO,XMN, YMN:PRINTMO, MNT:PENMO, 

1: KETUI1II 

5060 LOCATE#1, XB, YB:PRINT B$(BB):RETURN 
5100 LOCATEMO,XTP,YTP:PRINTMO,ET:SOUND 1 
.10,2:IF YTP>1 TREN YTP=YTP-1:LOCATEMO, X 
TP,YTP:PRINTMO, TPÍ:RETURN 
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-z- t 

SUO TI'kOÜF xtp>=xb and xtp<xb+lb tukn 

5120 ELSE RETURN 

5120 VOL=16:FOR Z=2000 TO 1950 STEP -1:L 
OCATEtí 1, XTP, YB: PRINT#1, EX 1.1;: LOCATE#1. XTP 
, Yli:PBINT«l,EX2$:S0ÜND 1, Z,3,VOL:SOUND 2 
,Z H000, 3, VOL: VOL=VOL-O. 13:NEXT:NB=NB+1: 
CiOCUií 0020: NT=NT+4~LB:G0SUB 0010 
5130 LOCATEII1, XB, YB:PRINT#1, STRING$(3, 32 
) l X!>=0: KKTURN 

5200 IF X1K2 Til EN LOCATE# 1, 1, YB: PRINT# 1, 
STI¡ING$( 3,32) : BB=INT(RND*6+1) :LB=LEN(B$( 
Bll) )-l: XB-40-LB:TB=TU*1 
5210 XB=XB-1:LOCATE#1,XB,YB:PRINTtíl, B$(B 
B > : HE TU UN 

6000 PlíNtíO, 2: V0L=15: FOR Z=3000 TO 2950 S 
TKP -1:LOCATEUO,XMN,YMN:PRINT#0,EX1Í:LOC 
ATEIIO, XMN, YMN: PKINTUO, EX2$:SOUND 1, Z, 3, V 
OL:SOUND 2,Z+1000,3,VOL:VOL=VOL-0.13:NEX 
T: PENIIO, 1: NS=NS-1:GOSUB 8000:IF NS=0 THE 
N 7000 ELSE 60 

7000 LOC'ATK#0, 1, 1 iPUINTUO, "TU FLOTA DE S 
UBMARINOS HA SIDO DESTRUIDA”:GOTO 7500 
7100 LOCATEUO,1,1:PKINTUO, “TE QUEDASTE S 
III TORPEDOS, HAS PERDIDO! I I GOTO 7500 
7500 FOR T=1 T0 3000:NEXT:MODIi 1:C'LS:L0C 
ATE 5,6:PRINT"PUNTUACION:“:LOCATE 2,8:PR 
INT"N. TOTAL DE TORPEDOS DISPARADOS:"¡TT 
:LOCATE 2,10IPRINT"N. TOTAL DE BARCOS EN 
EMIGOS:";TB:LOCATE 2,12:PRINT"N. BARCOS 
ENEMIGOS HUNDIDOS:";NB 

7510 LOCATE 1, 14:PRINTIIAS HUNDIDO EL"¡I 
NT(NB*1OO/TB );"% DE LA FLOTA ENEMIGA":LO 
CATE 7,22 .-PRINT" PAR A OTRA PARTIDA PULSA 
P":LOCATE 7.24:PRINT"PARA OTRO PROGRAMA 
PULSA O" 

7520 L:t- INKEY$: IF L$="" TI1EN 7520 ELSE L 
*=IJPPEH#:(L$) í 

7530 IF I,$="P” TREN RUN ELSE IF I,$="0" T 
IIEN 10000 ELSE 7520 

6000 LOCATE #2,2,1:PKINT#2, "N. ”;NS$;":" 
:LOCATE «2,6,1:PRINT#2,USING"##";NS:RETO 
RN 

0010 LOCATE #2,13,1:PRINT#2,"N. ";TP$;“: 
”:LOCATE #2,10,1:PRINTB2,USING"###”;NT:R 
ETURN 

8020 LOCATE #2,25, 1:PRINTII2, B$( 4); "HUNDI 
DOS:":LOCATE #2,36,1:PRINT#2,USING"###"¡ 
NB:RETURN 

9000 DATA " <<< SUBMARINO 

>>>",," Eres el Capitán de un submarino 


Z 


2 ± 


2 ± 


/-7^ 

en","guerra, y por lo tanto tu misión e 
o",hundir el máximo numero posible de,ba 
rucia enemigos., , “ Te bastara un solo to 
rpedo para hundir" 

9010 DATA a oualqiiiera de tun enemigos y 
por umla, uno que hundas reoibiras utas t 
erpedoa.,," El enemigo estara defendido 
por medio”,de una terrible mina submari 
rm., , “ El movimiento del submarino se r 
ealisa" 

9020 DATA con los teclas Q (a la izquier 
da) y,"W a la derecha), el torpedo se di 
spara", pulsando la barra espadadora., , ” 
El Juego termina al ser hundido oinco” 
,"veces, al aoabaree los torpedos o al”, 
pulsar la teola F. 

9030 DATA ,,“ PULSA UNA TECLA PARA COMEN 
ZAR EL .JUEGO” 

9500 SYMBOL 170,16,56,124,124.254,254,23 
8, 198: SYMBOL 171, 198, 198,238,254, 124, 124 
,56,40¡SYMBOL 172,0,0,2,78,03,255,127,62 
¡SYMBOL 173,0,0,0,0,0,28,254, 127:SYMB0L 
174,0.7,110,55,255,127,63,31¡SYMBOL 175. 
64, 192,39,246,255,255,254,252 
9510 SYMBOL 176,0,0,73,73,256,127,63,31: 
SYMBOL 177,32,60,34,62,265,255,264,262:8 
YMBOL, 176,0,0,238, 102,255, 127, 63, 31: SYMB 
OL 179,0, 127, 170, 213,256,255, 265, 255:SYM 
BOL 160, 48, 248, 172, 84,256,265.254,252 
9620 SYMBOL 181,4,60,20,255,63,31,15,7:8 
YMBOL 102,16,241,83,265,256,255,266,266; 
SYMBOL 183, 240, 168, 84, 256, 252, 252, 248, 24 
O 

9630 SYMBOL 166,16,68,56,66,56,16,56,40: 
SYMBOL 187,36,60,235,86,106,215,60,36:SY 
MBOL 188,133,80,132,41,134,53,74,149:SYM 
BOL 189,34,20,166,66,166,153,74,38:E$=CH 
Ii$(32) :SB1$=CHR$(170) :SB2$=CHR$( 171) :TP$ 
=CHR$( 106) :MN$=CI!R$( 187) 

9540 EXl$sCIJR$( 188):EX2$=CHR$(189) :B$(1) 
-CII1¡$( 172) +E$ : Bí ( 2) =CHR$( 173) +E$: B$( 3) =C 
IIR$( 174) iCIIR$( 175)+E$:B$(4)=CHR$( 176)+CH 
R$<177)+E$:SYMBOL 190,1,0,3,63,127,255,1 
27,63:SYMBOL 191,192,192,224,248,253.264 
,254,253 

9550 B1¡(6)=CHR$( 178)+CI1R$( 179)+CHU$( 180) 
+E»: U:fc < 13) =CIIR$( 181) +CHR$< 182) +CHll$< 183) + 
Ef: NS:t-CIIRi{ 190) +CHRt( 191): RETURN 
10000 MODE 1:CLS:PRINT"PREPARADO PARA EL 
SIGUIENTE PROGRAMA:”:RUN”" 


z: 
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L 

A 

B 

E 

R 

I 

N 

T 

0 


10 ' PROGRAMA << LABERINTO MAGICO >> 

20 ' 

30 SORBER 26:INK 0,26:INK 1,0:INK 2,8:IN 
K 3,2,6:SPEED INK 6.6:PAPER 0:PEN 3:MODE 
O 

40 LOCATE 2,10:PRINT"L ABERINTO": 

LOCATE 5,14:PRINT"M A G I C 0”:F0R T«1 T 

O 255: SOUND 1,T,3 

50 IF SQ( 1)04 THEN 50 ELSE NEXT 

60 FOR T=1 TO 15:SOUND 1,265,T,T 

70 IF SQ(1)<>4 THEN 70 ELSE NEXT:PEN 1:M 

ODE 1 

80 RESTOKE 9000:FOR Z=1 TO 22:READ E$:LO 

CATE 1,7,:PRINT E$;CHR$(7) :NEXT 

90 IF INKEY$="" THEN 90 

100 PEN l:MODE O: LOCATE 1,5:PRINT''INTR0D 

UCE TU NOMBRE"¡LOCATE 5,10:INPUT NM* 

110 IF LEN(NM$)<1 OR LEN(NM$)>10 THEN 10 
O ELSE CLS 

120 1*=CHR$(143)¡SYMBOL AFTER 31:8YMBOL 

140, 0,60, 126,102, 102, 126, 60, O: pí=CHR$( 14 

O):GOSUü 8000:G03UB 8100:GOSUB 6200 

130 XP=2:YP=2¡GOSUB 7000 

140 EVKHY 100,0 GOSUB 7200 

150 EVERY 21,1 GOSUB 7500 

160 U=INKEY*:IK L$=”“ THEN 160 

170 IF L*=CHR$<240) AND TEST(XP*3 2-16, 41 

2-(YP-I)* 10)01 THEN GOSUB 7100:YP=YP-1: 

GOSUB 7000 

180 IF L$=C1IR$(241) AND TKSTÍXP*32-16, 41 
2-( YP i 1) *16) OI THEN GOSUB 7100: YP=YP+1: 
GOSUB 7000 

190 IF L$=CHR$(242) AND TEST((XP-1)*32-1 
6, 412-YPt 16) OI THEN GOSUB 7100:XP=XP-1: 
GOSUB 7000 

200 IF L$=Cill¡$(243) AND TiCST( (XP+1)*32-1 
6,412-YP*1C)01 THEN GOSUB 7100:XP=XP+1: 
GOSUB 7000 

210 JK XP-19 THEN EVERY 5000,0 GOSUB 758 
O:EVERY 5000,1 GOSUB 7580:GOTO 230 
220 GOTO 100 

230 1‘KNBO, 3¡LOCATEBO, 4, 10:PHINT"FELICIDA 
DES!":FOR T=265 TO 1 STEP-1:S0UND 1,T,2: 
SOUND 2, T, 2 

240 IF SQ(1)04 THEN 240 
250 NEXT:MODE 0:PEN 2 

860 LOCATE 5,6:PRINT NM.t: LOCATE 5, 10:PRI 
NT "TARDASTE" ¡ TM:LOCATE 2, 12:PRINT"laborl 
j>t isegundos":LOCATE 6,14:PRINT"EN SALIR" 

:PEN 3¡LOCATE 1,22:PRINT"P PARA OTRA PAR 
TIDA":LOCATE 1,24:PRINT”F PARA OTRO PROG 
RAMA" 

270 L$=INKEY$:IF Lí=“" THEN 270 ELSE Lí= 
UPPER3(L$> 

280 IF LS="P" THEN liUN 100 ELSE IF L*<>“ 
F“ THEN 270 

290 INK O,I:INK 1,24¡PAPER 0:PEN I:BORDE 
R 1!MODE l:PRINT"PREPARADO PARA EL SIGUI 
ENTE PROGRAMA:":RUN“" • 

7000 PEN«0,2:LOCATEBO,XP,YP:PRINTBO,P$:P 


KNttO, 1: RKTURN 

7100 LOCATEBO,XP,YP:PRINTKO,CHRJ(32):RET 
URN 

7200 TM=TM*1¡L0CATEB1,1,13:PRINTS1,TM¡CH 
Rí(7):RETURN 

7300 PENBO,1:XL=1NT(KND*6+1)*3-2:YL=INT< 
RND*6+l)*4-3:IF XL=1 AND YL=1 THEN 7300 
ELSE 1K XI,= 1 THEN XL=2:G0T0 7310 ELSE IF 
YL=1 THEN YL=2:GOTO 7350 ELSE D=RND:IF 
D<0.49 THEN 7350 

7310 FOR Z=XL TO XL+2:IF Z<>XP AND YLOY 
P THEN LOCATEBO, Z,YL:PRINTB0,CHU$(32) 
7320 NEXT:RETURN 

7350 FOR Z=YL TO YL+3:IF ZOYP AND XLOX 
P THEN LOCATEBO,XL,Z;PRINTBO,CHR*(32) 

7360 NEXT¡RETURN 
7500 GOSUB 7300 

7805 XL=INT(RND*6+1)*3-2:YL=INT(RND*6+1) 
*4-3:IF XL=1 AND YL=1 THEN 7505 ELSE IF 
XL=1 THEN XL=2:GOTO 7510 ELSE IF YL=1 TH 
EN YL=2:GOTO 7550 ELSE D=RND:IF DC0.49 T 
HEN 7650 

7610 FOR Z=XI, TO XL+2:IF Z=XP AND YL=YP 
THEN Z=XL+2 ELSE LOCATEBO,Z,YL:PRINTBO, C 
HK$( 143) 

7520 NEXT:GOTO 7580 

7560 FOR Z=YL TO YL+3:IK Z=YP AND XL=XP 
THEN Z=YL+3 ELSE LOCATEBO,XL,Z¡PRINTBO, C 
HRÍ(143) 

7660 NEXT 
7680 RETURN 

8000 HINDOW BO, 1, 20,1,25:x$=STR!NG$(19,1 
43):FOR z=l TO 25¡LOCATE 80, l,z:PRINT BO 
,I$:LOCATE BO,19,z:PRINT BO,1$:NEXT:LOCA 
TE BO, 1,1:PRINT 80,x$:LOCATE 80, 1,25:PIU 
NT #0,:X4¡ 

8010 Z=1NT(RND(TIME)*22+2):IF Z<>6 AND Z 
09 AND Z<>13 AND Z<>17 AND Z<>21 THEN L 
OCATK 19,z:PRINT CHR$(32):RETURN ELSE 80 
10 

8100 WINDOH 81,20,20,1,25:PEN B1,3:L0CAT 
E Bl,1,6:PRINT81,"TIEMPO":RETURN 
8200 XC=LEFT$(X$,LEN(X$)-1):FOR Z=4 TO 1 
6 STEP 3:FOR J¿=2 TO 24¡LOCATE Z,Y:PRINT 
I4:NEXT Y.Z.'FOR Y=5 TO 23 STEP 4:L0CATE 
1,Y¡PRINT X$:NEXT¡RETURN 
9000 DATA " LABERINTO MAGI 
C O",," Es una prueba oontra reloj en 
un",laberinto olemprn cambiante.,," El 
objetivo del juego es oonoeguir",salir d 
o el en ol winimo tiempo poalble.,," Tu 
personaje sera una pelota de color" 

9010 DATA rojo que apareoera siempre en 
la,esquina superior-izquierda del monito 
r,"y que debes llevar hasta la apertura, 
en","la muralla exterior, en el otro ex 
tremo",de la pantalla. 

9020 DATA La pelota se mueve oon la 

s cuatro",toolas del ouroor.,,,,“ PULSA 
CUALQUIER TECLA PARA COMENZAR" 
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Francisco Paez. Asturias 


Antes se mataba trabajando. 


AHORA 



Ahora gracias al ordenador no tie¬ 
ne "stress" 


Segi Passarell. Barcelona 
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Vendo Impresora AMSTRAD DMP 
3000 nueva, sin estrenar, con cables, 
cinta, papel continuo, manual de ins¬ 
trucciones y en su caja de embalaje, 
precio a negociar. Interesador llamar 
o escribir a Alberto Vallejo. C/ Arte- 
kale, 1. 5? A. Elgoibar (GUIPUZCOA) 
Telf. (943) 74 15 35. 

Vendo ordenador AMSTRAD CPC 
6128 con monitor a color. Muy cuida¬ 
do. Regalo muchos extras, como dis¬ 
cos vírgenes, lecto-grabadora para cin¬ 
tas, cable de conexión, muchos juegos, 
etc. Todo original. Precio a convenir. 
Interesados dirigirse a José Antonio 
Arias. Avda. del Ejército, 58. l.°. 15006 
- LA CORUÑA. Telf. (981) 28 65 07. 

Vendo ampliación de memoria de 
64K completamente nueva por 13.000 
ptas. Je sú Tubío Fernández. C/ El Pi¬ 
lar, 5. 14960 Rute. CORDOBA. 

Vendo números 1, 2, 3 de M.A Ains- 
trad Educativo, dos libros de ordena¬ 
dores, n.6 de Amstrad Acción y Chu- 



letín, libro de informática, por sólo 
1600 ptas., precio original 2170. 

También lo cambio por Joysticks 
Zero-Zero especial Amstrad o Quick 
Shot I. También lo cambio por juegos, 
como el Goody y Exploding Fist, ori¬ 
ginales. 

Daniel Mármol Boto. C/ Virgen de 
Nuria 61, ático. Hospitalet de Llobre- 
gat. Barcelona. (Preferible alrededo¬ 
res). 

Cambio juegos y utilidades para 
Amstrad. Poseo entre otros el Phan- 
tis, Freddy Hardest, Bob Winner, El 
Enigma de Aceps, Stifflip & Co, Ghost 
Hunters. En utilidades tengo el Dr. 
Draw, Dr. Graph, Pagemaker, Art Stu- 
dio, etc. 

Interesados telefonear al 143232 y 
preguntar por José Manuel Quilez 
Niembro. SOLO Y EXCLUSIVAMEN¬ 
TE PARA GIJON. 

Vendo las siguientes revistas: Ams¬ 
trad Personal n.4, Mundo Amstrad 
n.3, Input Commodore n.18, 21, Ams¬ 



trad User n.16 y 19, Micro Hobby 
n.103, 129, 141, 159, 160 y los 50 me¬ 
jores programas listados para Amstrad 
por 1600 ptas. Valor 3.200 ptas. Los 
vendo juntos o por separado o los 
cambio por Micro Manía n.24, 25, 27, 
28. 

Dirigirse a Miguel Soteres Roig. C/ 
Alfonso XII n. 12. Tárraga, Lérida 
25300. 

Quisiera contactar con usuarios del 
Amstrad CPC 464, para intercambiar 
ideas, programas, etc. 

Escribir a José Ramón de los Ríos. 
C/ Floranes 37, 3.C. 39010 Santander. 
Telf. 23 71 64. (Preferiblemente en 
Cantabria). 

Intercambio todo tipo de utilidades, 
compiladores, lenguajes, programas de 
música, etc., por los últimos juegos en 
el mercado o por otras utilidades. Si 
es posible me lo enviáis en disco. Llá¬ 
mame al Telf. 401 77 54 de Madrid, por 
las mañanas y pregunta por Andrés. 




Os escribo a ésta sección, para que 
me aclaréis dos problemas que me han 
surgido en mi CPC 464 (color): me po¬ 
dríais explicar cómo se escribe éste sig¬ 
no en mi ordenador (0). 

La segunda cuestión es cómo se in¬ 
troducen los pokes que vosotros pu¬ 
blicáis. 

Si en alguna de estas consultas se ne¬ 
cesitan programas para hacerlo, ¿me 
lo podríais publicar? 

(Jordi F.) 

1. Nada más tendrás que teclear: 
PRINT CHR$ (234) 


2. Los pokes que publicamos se in¬ 
troducen de la siguiente manera; a) 
Para los originales viene un pequeño 
listado, tecléalo, grábalo en una cinta 



libre y luego cárgalo con “RUN” an¬ 
tes del juego original. Ya no tendrás 
más que seguir las instrucciones en 
pantalla y beneficiarte de las ventajas 
que te ofrece cada cargador. 

b) Los pokes que vienen sin carga¬ 
dor (sin listado) sólo podrán ser intro¬ 
ducidos con un transtape, o poniéndo¬ 
los en los programas desprotegidos, 
antes de la sentencia CALL-dirección. 
(Esta última forma, no es efectiva en 
un 100% debido a las diferentes ruti¬ 
nas de carga existentes). 

Con respecto a tu última pregunta, 
si los listados tienen una calidad sufi¬ 
ciente los publicaremos. 
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PASATIEMPOS 


Resuelve el siguiente criptograma, sustituyendo las letras anotadas por las letras correctas y encontrarás la definición 
de uno de los periféricos usados con los ordenadores. 


Antonio Pérez 


M 
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V 

P 

N 

X 

Q 

P 

0 

X 

□ 
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P. 
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SOLUCION A LOS PASATIEMPOS 
DEL NUMERO 3 


TEST: 1— B. 2.—B. 3.—C. 4.—B. 5.—B. 6.—C. 

SOPA de LETRAS: TAI PAN, HYSTERIA, REBEL, GOODY, ATV, PHANTIS, REBEL. 


MUNDO AMSTRAD 33 
































































































































LIBRERIA 


VJ. CAMPO. 
ED. RA MA. 
161 PAG 
1987. 


El autor trata temas de conocimiento general, 
como matrices y ordenación, aplicables a cualquier 
ordenador y temas sobre ficheros, específicos de 
los citados modelos. 

El contenido se ha dividido en 7 capítulos que; 
aún estando relacionados, permiten una lectura se¬ 
parada. 


LOS FICHEROS EN EL AMSTRAD 
CPC 664, Y CPC 6128 

En un primer bloque se incluye todo lo relativo 
a la utilización de listas y tablas, en cuanto estruc¬ 
turas de almacenamiento transitorio y manipulación 
de datos. Seguidamente se dedica a los ficheros 
en Amstrad, tanto los de acceso directo como se- 
cuencial. 

Por último pretende aportar una mayor utilidad 
a los programas EAMSWORD y ED£0M (CP/M), ma¬ 
nejándolos desde Basic y utilizándolos como crea 
dores y manipuladores de ficheros. 

Se incluyen asimismo; numerosas rutinas y ejem 
píos, además de unos apéndices con programas de 
utilidad, que permiten un uso directo como progra¬ 
mas de aplicación. 



Técnicas de 

Programación Avanzada 


con AMSTRAD 



TECNICAS DE PROGRAMACIÓN 
AVANZADA CON AMSTRAD 


K. HOOK 
En RA MA 
160 PAG. 
1985 


Este texto está orientado para complementar los 
conocimientos existentes acerca del Locomotive Ba¬ 
sic del Amstrad CPC464. 

Está ilustrado con numerosos ejemplos, que mues¬ 


tran cómo incorporar rutinas sencillas en código 
máquina a programas Basic También aporta un con¬ 
siderable material de consulta y referencia, que pue¬ 
de irse consultando a medida que se avanza en el 
conocimiento de la programación. 

Paralelamente, se ofrece una amplía perspectiva 
del lenguaje ensamblador, aunque no es el objetivo 
del autor, así como unos conocimientos elementa¬ 
les de la estructura y funcionamiento del ordenador. 

Destacan los siguientes programas: 

- Creación de figuras (sprites). 

- Desarrollo de un sistema de sonida 

- Generación de gráficos. 

- Programación en código máquina dentro de 
instrucciones REM, tablas dimensiones y variables 
literales. 



TODO UN AÑO DE PROGRAMAS E INFORMACION 


Deseo suscribirme a la Revista Mundo Amstrad durante un año por sólo 2.000 ptas. ( lo que equivale a comprar 
doce ejemplares al precio de diez. (Oferta válida sólo para España). 

Nombre y apellidos: . 

Dirección: .Tfno.: . 

Localidad: .C.P.: .Provincia: . 

Forma de pago:Contra reembolso: iUGiro Postal N.° .□ Cheque N.° . 

Recorta o fotocopia este cupón y envíalo a: Mundo Spectrum, Tomás López, 3-6.° 28009 MADRID 
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MASTER GAMES 


ALONSO DEL BARCO, 9 
28012 MADRID 


TLFS. 





• 


PV.P. 

llifcUüLULillU 

PV.P. 

SHOW JUMPING 

399 

IMPLOSION 

875 

WHO DARES WINS II 

399 

CUERPO HUMANO 

875 

TABLE FOOTBALL 


ACE 

875 

(FUT BOLIN) 

WINTER GAMES 

399 

450 

SPACE SUTTHLE 

EXOLON 

875 

875 

BREAK THRU 

450 

GAUNTLET 

875 

XEVIOUS 

450 

COMMANDO 

875 

CORTOCIRCUITO 

450 

TRAP DOOR 

875 

BATMAN 

450 

ENDURO RACER 

875 

DONKEY KONG 

450 

NOSFERATU 

875 

GREAT ESCAPE 

450 

HIGH FRONTlER 

875 

MIAMI VICE 

5<X> 

SNOOKER (BILLAR) 
BASKET TWO ON TWO 

875 

STREET HAWK 

500 

875 

SABOTEUR 

500 

BOMB JACK 

875 

WAR 

5<X) 

SUPERSPRINT 

875 

WEST BANK 

500 

POPEYE 

875 

BRUCE LEE 

500 

WONDER BOY 

875 

SIGMA 7 

500 

FIFTH CUADRANT 

875 

ENEGMA FORCE 

500 

COLOSSUS 4 (AJEDREZ) 
TRIO (HIT PACK) 

QUARTET 

875 

SPY HUNTER 

5<X) 

875 

FRANKIE GOES TO H 

500 

875 

CAMELOT WARRlORS 

500 

YOGUI BEAR 

875 

COMET GAME 

500 

STARBYTE 

975 

V 

LIVINGSTON SUPONGO 

500 

500 

REX HARD 

LAST MISION (OPERA) 
COSA NOSTRA 

975 

975 

OLE TORO 

500 

975 

CAULDRON II 

500 

GOODY 

975 

NODES OF YESOD 

500 

NUCLEAR BOWLS 

975 

FUTURE KNIGHT 

500 

4 SUPER 4 

1200 

FROST BYTE 

500 

STIFFLIP & CIA 

1 200 

COCHE FANTASTICO 

500 

PACK MONSTRUO 

1200 

ROCK Y 

500 

STEAR WARS 

1 200 

3 LUCES DE GLAURUNG 

500 

BARBARIAN 

1200 

POLE POSITlON 

VX) 

LEADER BOARD 

1200 

STAINLESS STEEL 

500 

PAPERBOY 

1 200 

COBRAS ARC 

500 

PROHIBITION 

1200 

ABU SIMBEL 

VX) 

FLUNKY 

1200 

ANTlRIAD 

VX) 

MR WEEMS AND 


HAMBO 

VX) 

VAMPIRES 

1 200 

REGRESO AL FUTURO 

500 

1942 

1.200 

HOWARD EL PATO 

500 

HYDROFOOL 

1200 

GOLPE EN LA P CHINA 

VX) 

JAIL BREAK 

1500 

GHOSTBUSTERS 

500 

DEATHSCAPE 

1500 

ALIENS 

WINTER SPORTS 

500 

500 

NEMESIS 

DOGHFIGHT 

1500 

1500 

MASK 

8/5 

DE PELICULA 

1 695 

TRIAXOS 

8/5 

SIX PACK n 

1 750 

NIGHTMARE RALLY 

8/5 

SIX PACK (♦ DUET) 
ALBUM DE PLATINO 

1 750 

NINJA HAMSTER 

8/5 

2500 

SLAP FIGHT 

STARFOX 

CORflECAMINOS 

EL CID 

007 ALTA TENSION 

8/5 

875 

875 

875 

875 

GAME SET & MATCH 

EL LINGOTE 

TRIVIAL PURSUIT 

2900 
3500 
3 500 

PV.P. 


SIDEWIZE 

875 

TRAILBLAZER 

295 

CHALLENGE Of THE GOBOT 

8/5 

FUTURE KNIGHT 

295 

DRUID 

8/5 

REVOLUTION 

295 

HYBRID 

8/5 

KETTLE 

399 

CENTURIONS 

8/5 

WHO DARES WINS II 

399 

W S BASKETBALL 

875 

WINTER GAMES 

450 

RED LED 

8/5 

ARKANOID 

450 

REBEL STAR 

875 

BATMAN 

450 

ELBALLBREAKER 

875 

CORTOCIRCUITO 

450 

STOP BALL 

8/5 

DONKEY KONG 

450 

COBRA 

875 

BREAK TRHU 

450 

BRIDE OF FRANKISTEIN 

8/5 

GREAT ESCAPE 

450 

FIST II 

875 

XEVIOUS 

450 

TRAP DOOR H 

875 

REGRESO AL FUTURO 

500 

3AME OVER 

875 

GOLPE EN L P CHINA 

500 

<INETIX 

8/5 

HOWARD EL PATO 

500 

FREDOY HARDEST 

8/5 

HACKER 

500 

SENTINEL 

875 

ALIENS 

500 

FERNANDO MARTIN 

8/5 

B M BOXING 

500 

EMPIRE 

875 

WINTER SPORTS 

500 

SUPER SOCCER 

875 

EDEN BLUES 

500 

TERRA CRESTA 

875 

GHOSTBUSTERS 

500 

GUN RUNNER 

875 

LIVINGSTON SUPONGO 

500 

MUTANTS 

875 

BEACH HEAD II 

500 

LAST MISION (U.SGOLD) 

875 

GET DEXTER 

500 

MARIO BROS 

TRANTOOR 

875 

PACIFIC 

500 

8/5 

MATCH DAY 

500 

MISTERIO DEL NILO 

875 

ANTlRIAD 

500 

BLACK MAGIC 

875 

WAR 

500 

SALOMONS KEY 

875 

STAINLESS STEEL 

500 

DRAGONS LAIR II 

875 

DECATHLON 

500 

THRONE OF FIRE 

8/5 

WEST BANK 

500 

FINAL MATRIX 

875 

RAM 80 

500 

SPIRITS 

875 

TURBO SPIRIT 

500 

ZYNAPS 

875 

CAMELOT WARRlORS 

500 

JACK THE NIPPER II 

8/5 

SGRIZAM 

500 

HYSTERIA 

8/5 

OLE TORO 

500 

TAI PAN 

8/5 

CRAY 5 

500 

DESPERADO 

8/5 

CAULDRON II 

500 

METROCROSS 

875 

3 LUCES 0E GLAURUNG 

500 

ALIEN EVOUTION 

8/5 

MIAMI VICE 

500 

DEATH WISH 3 

875 

EXPLO0ING FIST 

500 

WIZBALL 

8/5 

COCHE FANTASTICO 

500 

CONVOY RAI DE R 

SURVIVOR 

8/5 

BRUCE LEE 

500 

8/5 

ROCKY 

500 

EXOLON 

8/5 

TURBO 

500 

ATHENA 

8/5 

HYBRID 

875 

INSPECTOR GAOGET 

8/5 

CENTURIONS 

875 

PHANTIS 

8/5 

STOP BALL 

075 

SAMURAI TRILOGY 

875 

THE SENTINEL 

875 

SUPERCYCLE 

8/5 

DRUID 

875 

RANARAMA 

8/5 

CHALLENGE OF THE GOBOTS 875 

STAR DUST 

8/5 

STARFOX 

875 

INDIANA JONES 

8/5 

BRIDE OF FRANKISTEIN 

875 

HEAD OVER HEELS 

875 

RED LED 

875 

BEST OF 30 

8/5 

NINJA HAMSTER 

875 

DON QUIJOTE 

875 

EL CID 

875 

TANK 

8/5 

HEAD OVER HEELS 

875 

SABOTEUR II 

875 

ZYNAPS 

875 

MEGACORP 

875 

AUF WIEDERSEN MONTY 

875 

RENEGADE 

8/5 

SPIRITS 

875 

GUADALANAL 

875 

SABOTEUR II 

875 

INFILTRATOR 

875 

THE FINAL MATRIX 

875 

GHOST & GOBLINS 

8/5 

007 ALTA TENSION 

875 


467 09 00 - 467 01 1 



PVP 


PVP 


PVP 

CONVOY RAYDER 

875 

CORTOCIRCUITO 

450 

STAR WARS 

1 200 

COBRA 

875 

GREAT ESCAPE 

450 

STAR PAWS 

i 200 

UCHI MATA 

075 

DONKEY KONG 

450 

THE LAST NINJA 

1 200 

0EATH WISH 3 

875 

TERRA CRESTA 

450 

PAPERBOY 

1200 

PULSATOR 

875 

ARKANOID 

450 

PROHIBITION 

1 200 

GAME OVER 

875 

BREAK TRUH 

450 

FLUNKY 

1 200 

FERNANDO MARTIN 

875 

XEVIOUS 

450 

MR WEEMS AND VAMPIRES 

12CX) 

EXPRESS RAiDER 

875 

KNIGHT GAMES 

500 

DEATHSCAPE 

1500 

RANARAMA 

875 

V 

500 

TRACK & FIELO 

1500 

ORAGONS LAIR II 

875 

SUPERSTAR PING PONG 

500 

DOGHFIGHT 2187 

i 500 

DON QUIJOTE 

875 

ROCKN LUCHA 

500 

ALIENS (USA VERSION) 

1500 

NONAMED 

875 

GYROSCOPE 

500 

NEMESIS 

1 500 

MAG MAX 

875 

KONAMI PING PONG 

500 

JAIL BREAK 

1500 

TAI PAN 

875 

COCHE FANTASTICO 

500 

DE PELICULA 

1695 

METROCROSS 

875 

MIAMI VICE 

500 

SIX PACK II 

i / 50 

SAMURAI TRILOGY 

875 

RAMBO 

500 

SIX HIT PACK ♦ OUET 

1 750 

MARIO BROS 

875 

ALLEYKAT 

500 

AUNEADOR DE CABEZALES 2 000 

SLAP FIGHT 

875 

SPY HUNTER 

500 

ALBUM DE PLATINO 

2000 

WIZBALL 

875 

EXPLODING FIST 

500 

GAME SET AND MATCH (10 


MUTANTS 

875 

ANTlRIAD 

500 

DEPORTE) 

2900 

CORRECAMINOS 

875 

SABOTEUR 

500 

TRIVIAL PURSUIT 

3500 

TANK 

075 

GOLPE EN LA P CHINA 

500 

EL LINGOTE 

3500 

SIGMA 7 

875 

TOUR DE FRANCIA 
HOWARD EL PATO 

ROAD RACE 

500 

ACROJFT 

1200 

MARTIANOIDS 

875 

500 


PV.P. 

MISTERIO OEL NILO 

875 

REGRESO AL FUTURO 

500 

BATMAN 

450 

WARLOCK 

875 

ALIENS 

500 

WINTER GAMES 

450 

RYGAR 

875 

B M BOXING 

500 

SURVIVOR 

450 

TRANTOOR 

875 

GHOSTBUSTERS 

500 

DONKEY KONG 

450 

STAR DUST 

INDIANA JONES 

875 

BASEBALL 

500 

SPIRITS 

450 

875 

WORLD CUP CARNIVAl 

700 

COU 36 

450 

PHANTIS 

875 

DOUBLE TAKE 

875 

HEAD OVER HEELS 

450 

DESPERADO 

875 

BRIDE OF FRANKISTEiN 

875 

ARKANOID 

450 

FREDOY HARDEST 

875 

INFODROID 

875 

UCHI MATA 

450 

MEGACORP 

875 

ENLIGHTMENT (DRUID II) 

875 

OH SHIT 

500 

SALOMONS KEY 

875 

HINETIK 

875 

FIREHAWK 

500 

SURVIVOR 

875 

TRIAXOS 

875 

DRAW ANO PAINT 

500 

RENEGADE 

875 

THANATOS 

875 

CHOPER 1 

500 

EXOLON 

875 

STARFOX 

875 

FORMULA 1 

500 

TENSIONS (POKER) 

875 

REBEL 

875 

SEAKING 

500 

BOMB JACK 

875 

THE SENTINEL 

875 

POKER 

500 

PlNBALL WIZARD 

875 

RED LEAD 

875 

PY RAMIO 

500 

SPINDIZZY 

875 

HYBRID 

075 

LIVINGSTON SUPONGO 

500 

QUARTET 

*3 

CENTURIONS 

875 

PASTFINDER 

5(X) 

EN OURO RACER 

CHALLENGE OF THE GOBOTS 875 

TRAILBLAZER 

500 

GUADALCANAL 

875 

SIDEWIZE 

875 

MAPGAME 

SCO 

BASKET TWO ON TWO 

875 

DRUID 

875 

THE WALL 

5(X) 

HIGH FRONTlER 

075 

DRAGONS LAIR il 

875 

JACK THE NIPPER 

5(X) 

WONDER BOY 

875 

LAST MISION (U.SGOLD) 

875 

GUNFRIGHT 

500 

SUPERSPRINT 

875 

KRAKOUT 

875 

ALIEN 8 

500 

STAR GRAPH 

875 

WATER POLO 

875 

FUTURE KNIGHT 

500 

FRIGHTER PILOT 

875 

RAMARAMA 

875 

JET SET WILLY 

500 

NOSFERATU 

875 

ZYNAPS 

875 

SHOW JUMPER 

500 

COMMANDO 

875 

DELTA 

875 

80UNDER 

500 

INFILTRATOR 

875 

FREDDY HARDEST 

875 

WALKYR 

500 

INFODROID 

875 

GAME OVER 

875 

KNIGHT LORE 

5(X) 

SNOOKER (BILLAR) 

875 

ARMY MOVES 

875 

DESOLATOR 

875 

ACE 

875 

CONVOY RAlDER 

875 

ABU SIMBEL 

8/5 

GAUNTLET 

875 

WEST BANK 

875 

CAMELOT WARRlORS 

875 

FIFTH QUADRANT 

875 

RENEGADE 

875 

GROGS REVENGE 

875 

KINETIK 

875 

TAI PAN 

875 

STOP BALL 

875 

GHOST & GOBLINS 

875 

SALOMONS KEY 

875 

LAS 3 LUCES DE G 

875 

COSA NOSTRA 

975 

SAMURAI TRILOGY 

875 

CYBERUN 

875 

GOODY 

975 

CALIFORNIA GAMES 

875 

BUBLER 

875 

REX HARD 

975 

METROCROSS 

875 

MISTERIO DEL NILO 

8/5 

MISSION 

975 

DEATH WISH 3 

875 

007 ALTA TENSION 

875 

GRANO PRIX 500 CC 

975 

MARIO BROS 

875 

MARTIANOIDS 

8/5 

CHARLY DIAMS 

975 

007 ALTA TENSION 

875 

DESPERADO 

875 

STARBYTE 

975 

SLAP FIGHT 

875 

STAR DUST 

8/5 

TENNIS 

975 

EXOLON 

875 

ARQUIMEDES XXI 

875 

LAST MISION (OPERA) 
PACK MOSTRUO 

975 

WIZBALL 

875 

ROCKY 

875 

1 200 

TANK 

875 

PHANTIS 

875 

LEADER BOAHD 

1 200 

MUTANTS 

875 

COBRAS ARC 

875 

BARBARIAN 

1 200 

DECEPTOR 

875 

NONAMED 

8/5 

ACE OF ACES 

1 200 

MEGA APOCALYPSE 

875 

COSMIC SHOCK ABSORBER 875 

4 SUPER 4 

1 200 

CORRECAMINOS 

875 

DEATH WISH 3 

875 

HUNTER KILLER 

1 200 

INDIANA JONES 

875 

AUF WIEDERSEN MONTY 

875 

DAMBUSTERS 

1 200 

PITSTOP II 

875 

PHANTOMAS II 

875 

CESSNA OVER MOSCOW 

1 200 

SUPER CYCLE 

875 

PENTAGRAM 

8/5 

IKARI WARRIOR 

1.200 

EXPRESS RAlDER 

875 

FERNANDO MARTIN 

875 

HYDROFOOL 

1 200 

COBRA 

875 

KRAKOUT 

875 

CHAMPIONSHIP WATERSKING 1200 

DON QUIJOTE 

875 

BALLBLAZER 

8/5 

PROHIBITION 

1.200 

FIST II 

875 

THING BOUNCES BACK 

875 

PAPER BOY 

1 200 

MAX TORQUE 

875 

AVENGER 

875 

FLUNKY 

1.200 

HIGH FRONTlER 

875 

HOWARD EL PATO 

8/5 

MR WEEMS AND VAMPIRES 1200 

BASKET TWO ON TWO 

875 

SPACE SHUTTLE 

875 

DOGFIGHT 2186 

1 500 

SPACE SHUTTLE 

875 

DECATHLON 

875 

DEATHSCAPE 

1500 

ENDURO RACER 

875 

ALIENS 

8/5 

NEMESIS 

1500 

QUARTET 

875 

SP1RTFIRE 40 

875 

JAIL BREAK 

1500 

WONDER BOY 

875 

GAUNTLET 

8/5 

SIX PACK ♦ DUET 

1 750 

SUPERSPRINT 

875 

WINTER EVENTS 

8/5 

SIX PACK II 

1.750 

INFILTRATOR 

875 

737 FLlGHT SIMULATOR 

8/5 

ALBUM DE PLATINO 

2000 

X 15 

875 

BOULDER DASH II 

875 

GAME SET A MATCH (10 


INT KARATE ♦ 

875 

SNOOKER (BILLAR) 
BOULDER DASH 1 

875 

DEPORTES) 

2900 

GAUNTLET 

875 

8/5 

EL LINGOTE 

3 500 

GUADALCANAL 

875 

DYNAMITE DAM 

8/5 



WINTER GAMES 

875 

CHORO Q (32K) 

975 


m 

PV.P. 

CAMELOT WARRlORS 

875 

WINTER OLYMPICS 

975 

DRAGONS LAIR 1 

875 

MUTANT MONTY 

975 

SYCLONE 2 (COPIA 
CINTA-CINTA) 

SPIRIT (COPIA CINTA OISCÍ 
AMSTEbT (CHEQUEO) 

BASE DE DATOS Y ETIQUETA 
SOCK AI0 (CONTROL DE 
STOCK) 

FONO EDITOR 

MUSIC MAESTRO 
AMSBASE 

SPACE SUTHLE 

875 

TURBO CHESS 

9/5 

975 
3) 975 
975 
£ 975 

975 

975 

975 

975 

FLlGHT DECK 

875 

CHOCK AND POP 

975 

VIERNES Y 13 

IRIDIS OC 

YOGUI BEAR 

SNAP DRAGON 

TRAP DOOR II 

875 

875 

875 

875 

875 

STAR SEEKER 

LAZY JONES 

SORCERY 

SUPERBOWL 

WHO DARES WINS II 

975 

975 

975 

975 

975 

ACE 

875 

EUROPEAN GAMES 

975 

SNOOKER (BILLAR) 

BOMB JACK 

875 

875 

30 KNOCKOUT 

COSA NOSTRA 

975 

975 

COMMANDO 

875 

ABADIA DEL CRIMEN 

9/5 

CONTABILIDAD DOMESTICA 1500 
DRAUGHTSMAN (DISEÑO 

GRAFICO) 1500 

MONITOR CODIGO MAQUINA 1500 

GHOST & GOBLINS 
COLOSSUS 4 (AJEDREZ) 
FIFTH QUAORANT 
SP1RTF1RE 40 

TRIO 

875 

875 

875 

875 

375 

STARBYTE 

LAST MISION (OPERA) 
GOODY 

MISTERIO OEL NILO 
INTERNATIONAL KARATE 

975 

975 

975 

975 

975 

| 

1 

PV.P 

NOSFERATU 

875 

DEMONIA 

975 

LIVINGSTON SUPONGO 

975 

PACK MONSTRUO 

i 200 

WHO DARES WINS II 

399 

STIFLIP & CIA 

1.200 

ACE OF ACES 

1 200 


DAMBUSTERS 
10TH FRAME 
ALBUM DE PLATINO 
KNIGHT COMMANDER 
EL LINGOTE 


beb 


PV.P 
1200 
1.200 
1.700 
2 300 
3.500 
| PV.P 

PENGUIN AOVENTURE 4 500 
NEMESIS 4 500 

GAME MASTER 4 500 

KNIGHTMARE 4 500 

LOS GOONIES 4.500 

NEMESIS 2 4 500 

MAZE OF GALIONS 4 500 

Q BERT 4.500 

KONAMI TENNIS 4 500 

KONAMI FOOTBALL 4.500 

HYPER RALLY 4.500 

GREEN BERET 4 500 

METAL GEAR (MSX2) 4 900 

VAMP1RE KILLER |MSX2> 4 900 
DESARROLLO OH 5 800 

DESARROLLO 1X2 5.800 

MULTIMILLER (COMPATIBILIZA 
MSX2) 7.900 

MILLERGRAPH (OISEÑADOR 
GRAFICO) 9 900 

MEMORYMILLER (AMPLIACION 
A 64K) 11.900 


IHEI3I22iEE2DH1 

| PV.P. 

EXPLODING FIST + F 


WARRIOR 

1.500 

DRAGONS LAIR II 

1.500 

WORLD CUP CARNIVAL 

1.500 

DRAGONS LAIR 1 

1500 

CUERPO HUMANO 

1.500 

LAST MISSION 

2.000 

GOODY 

2.000 

LIVINGSTON SUPONGO 

2000 

COSA NOSTRA 

2.000 

SIR FRED 

2 250 

CORRECAMINOS + 


SALOMONS KEY 

2.250 

REX HARD 

2 250 

DON QUIJOTE ♦ PHANTIS 2.250 

: IAR8YT1 

2 250 

DESPERADO ♦ SURVIVOR 2.250 

S TRYLOGY + THING 


BOUNCES BACK 

2.250 

BASKET TWO ON TWO 

2.250 

MISSION 

2250 

CHARLY DIAMS 

2 250 

ENDURO RACER 

2250 

PACK MONSTRUO 

2.250 

SUPER SPRINT 

2.250 

BOB WINNER 

2250 

WONOER BOY 

2 250 

QUARTET 

2*250 

HYDROFOOL 

2.250 

TRIO (HIT PACK) 

2.250 

JAIL BREAK 

2 250 

NEMESIS 

2.250 

PROHIBITION 

2250 

CH WATERSKING 

2 750 

HIT PACK (4 EXITOS) 

2 750 

DINAMIC DISC PACK 

2 750 

SIX PACK + DUET 

2.750 

PAPfRBOY 

2750 

FLUNKY 

2.750 

GAME SET & MATCH 10 


DEPORTES) 

4 500 

TRIVIAL PURSUIT 

4500 


¡2H PVP 

2 250 


REX HAR0 
FREDOY ♦ PHANTIS 
QUIJOTE + MEGACORP 
STAR RAIDERS II 
SIR FRED 
STARBYTE 
4 DINAMIC EXITOS 
LOS 40 PRINCIPALES 
PROHIBITION 
GAME SET AND MATCH 10 
DEPORTES 4 500 

TRIVIAL PURSUIT 4.500 

■HTmTIW pv.p 


2.250 
2 250 
2 250 
2 250 
2 250 
2500 
2500 
2.750 


CONSOLA SEGA 2 STICK ♦ 
HANG ON 26.900 

UGHT PHASER PARA SEGA ♦ 1 
JUEGO 11900 

30 GLASSES + 3 JUEGOS 11 900 


CONTROL STICK 
TARJETA 256K 
CARTUCHO 1 MEGA 
CARTUCHO 2 MEGAS 


ZERO ZERO STANDAR 
ZERO ZERO ESPECIAL 
AMSTRAD 

ZERO ZERO ESPECIAL 
SPECTRUM + 2 
QUICKSHOT I 
QUICKSHOT II 
QUICKSHOT V 
SPEED KING KONIX 
PHASER ONE 
TERMINATOR 


m 


UNIDAD CASETTE 1530 


2900 

2900 

4500 

4900 

PV.P 

1.900 

1.900 

1900 
995 
1.195 
1.475 
2595 
3 300 
3 900 

PV.P. 

4.900 


HAZ TU PEDIDO POR TELÉFONO O POR CORREO 


mommm. 

ORDENADOR 

TITUU» 

PRECIO 

«MUIDO* 





TITULO* GRATIS 







mlfON 




rOMá O* PAOO: TALON orno CONTRA REMBOLSO 

GASTOS ENVIO 


TOO 


TOTAL 




















































iiEDADES 

SYGRAN, S. A. 







AMSTRAD 
Y SPECTRUM 
DISPONIBLES 
EN DISCO Y 


DISTRIBUIDOR EXCLUSIVO 

SYGRAN, S. A. 

POL INDU8TRIAI VAL.DONAIRE 
HUMANES (MADRID) 

TéLEE 416 48 38 


SPECTRUM^ 


OISPONIBL 


SPECTRUM 








MSX 


N A \' h 




DISPONIBLE 

AMSTRAD 


DISPONIBLE 

SPECTRUM 

MSX 








































































